home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / bin_c / compile_to_c9.c < prev   
C/C++ Source or Header  |  2000-03-25  |  111KB  |  4,479 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.76Beta#1)--
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                  http://SmallEiffel.loria.fr/                --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T0* r273type_any(void){
  12. if(fBC13type_any==0){fBC13type_any=1;{
  13. T68 _unknown_position={NULL,0};
  14. {T259*n=((T259*)malloc(sizeof(*n))/*8*/);
  15. *n=M259;
  16. oBC13type_any=((T0*)n);
  17. r259make(n,_unknown_position);
  18. }
  19. }}
  20. return oBC13type_any;
  21. }
  22.  
  23.  
  24. void r273c_initialize_in(T273* C,T0* a1){
  25. /*[IF*/
  26. if(r273is_expanded(C)){
  27. /*[IF*/
  28. if(r273need_c_struct(C)){
  29. r50c_object_model_in((T50*)(r273run_class(C)),a1);
  30. }
  31. else{
  32. r7extend(((T7*)a1),((T3)'0'));
  33. }
  34. /*FI]*/
  35. }
  36. else{
  37. r7append(((T7*)a1),((T0*)ms14_1260));
  38. }
  39. /*FI]*/
  40. }
  41.  
  42.  
  43. T0* r273smallest_ancestor(T273* C,T0* a1){
  44. T0* R=NULL;
  45. T0* _rto=NULL;
  46. _rto=X52run_type(a1);
  47. /*[IF*/
  48. if(X52is_none(a1)){
  49. R=((T0*)(C));
  50. }
  51.  else if(X52is_any(_rto)){
  52. R=_rto;
  53. }
  54.  else if(X52is_a(_rto,r273run_type(C))){
  55. R=(/*RF2*/(C)->_run_type_memory/*16*/);
  56. }
  57. else{
  58. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  59. /*]*/
  60. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  61. /*]*/
  62. /*]*/
  63. /*[IF*/
  64. if(r273is_a((T273*)(r273run_type(C)),_rto)){
  65. R=_rto;
  66. }
  67. else{
  68. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  69. /*]*/
  70. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  71. /*]*/
  72. /*]*/
  73. /*[IF*/
  74. if(X52is_generic(_rto)){
  75. R=r273type_any();
  76. }
  77. else{
  78. R=X52smallest_ancestor(_rto,(T0*)C);
  79. }
  80. /*FI]*/
  81. }
  82. /*FI]*/
  83. }
  84. /*FI]*/
  85. return R;
  86. }
  87.  
  88.  
  89. T0* r273string_aliaser(void){
  90. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  91. {T21*n=((T21*)malloc(1));
  92. oBC13string_aliaser=((T0*)n);
  93. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  94. r23put((T23*)(oBC21memory),b1,b1);
  95. }/*]*/
  96. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  97. r23put((T23*)(oBC21memory),b1,b1);
  98. }/*]*/
  99. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  100. r23put((T23*)(oBC21memory),b1,b1);
  101. }/*]*/
  102. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  103. r23put((T23*)(oBC21memory),b1,b1);
  104. }/*]*/
  105. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  106. r23put((T23*)(oBC21memory),b1,b1);
  107. }/*]*/
  108. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  109. r23put((T23*)(oBC21memory),b1,b1);
  110. }/*]*/
  111. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  112. r23put((T23*)(oBC21memory),b1,b1);
  113. }/*]*/
  114. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  115. r23put((T23*)(oBC21memory),b1,b1);
  116. }/*]*/
  117. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  118. r23put((T23*)(oBC21memory),b1,b1);
  119. }/*]*/
  120. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  121. r23put((T23*)(oBC21memory),b1,b1);
  122. }/*]*/
  123. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  124. r23put((T23*)(oBC21memory),b1,b1);
  125. }/*]*/
  126. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  127. r23put((T23*)(oBC21memory),b1,b1);
  128. }/*]*/
  129. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  130. r23put((T23*)(oBC21memory),b1,b1);
  131. }/*]*/
  132. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  133. r23put((T23*)(oBC21memory),b1,b1);
  134. }/*]*/
  135. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  136. r23put((T23*)(oBC21memory),b1,b1);
  137. }/*]*/
  138. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  139. r23put((T23*)(oBC21memory),b1,b1);
  140. }/*]*/
  141. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  142. r23put((T23*)(oBC21memory),b1,b1);
  143. }/*]*/
  144. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  145. r23put((T23*)(oBC21memory),b1,b1);
  146. }/*]*/
  147. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  148. r23put((T23*)(oBC21memory),b1,b1);
  149. }/*]*/
  150. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  151. r23put((T23*)(oBC21memory),b1,b1);
  152. }/*]*/
  153. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  154. r23put((T23*)(oBC21memory),b1,b1);
  155. }/*]*/
  156. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  157. r23put((T23*)(oBC21memory),b1,b1);
  158. }/*]*/
  159. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  160. r23put((T23*)(oBC21memory),b1,b1);
  161. }/*]*/
  162. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  163. r23put((T23*)(oBC21memory),b1,b1);
  164. }/*]*/
  165. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  166. r23put((T23*)(oBC21memory),b1,b1);
  167. }/*]*/
  168. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  169. r23put((T23*)(oBC21memory),b1,b1);
  170. }/*]*/
  171. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  172. r23put((T23*)(oBC21memory),b1,b1);
  173. }/*]*/
  174. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  175. r23put((T23*)(oBC21memory),b1,b1);
  176. }/*]*/
  177. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  178. r23put((T23*)(oBC21memory),b1,b1);
  179. }/*]*/
  180. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  181. r23put((T23*)(oBC21memory),b1,b1);
  182. }/*]*/
  183. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  184. r23put((T23*)(oBC21memory),b1,b1);
  185. }/*]*/
  186. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  187. r23put((T23*)(oBC21memory),b1,b1);
  188. }/*]*/
  189. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  190. r23put((T23*)(oBC21memory),b1,b1);
  191. }/*]*/
  192. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  193. r23put((T23*)(oBC21memory),b1,b1);
  194. }/*]*/
  195. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  196. r23put((T23*)(oBC21memory),b1,b1);
  197. }/*]*/
  198. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  199. r23put((T23*)(oBC21memory),b1,b1);
  200. }/*]*/
  201. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  202. r23put((T23*)(oBC21memory),b1,b1);
  203. }/*]*/
  204. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  205. r23put((T23*)(oBC21memory),b1,b1);
  206. }/*]*/
  207. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  208. r23put((T23*)(oBC21memory),b1,b1);
  209. }/*]*/
  210. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  211. r23put((T23*)(oBC21memory),b1,b1);
  212. }/*]*/
  213. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  214. r23put((T23*)(oBC21memory),b1,b1);
  215. }/*]*/
  216. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  217. r23put((T23*)(oBC21memory),b1,b1);
  218. }/*]*/
  219. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  220. r23put((T23*)(oBC21memory),b1,b1);
  221. }/*]*/
  222. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  223. r23put((T23*)(oBC21memory),b1,b1);
  224. }/*]*/
  225. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  226. r23put((T23*)(oBC21memory),b1,b1);
  227. }/*]*/
  228. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  229. r23put((T23*)(oBC21memory),b1,b1);
  230. }/*]*/
  231. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  232. r23put((T23*)(oBC21memory),b1,b1);
  233. }/*]*/
  234. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  235. r23put((T23*)(oBC21memory),b1,b1);
  236. }/*]*/
  237. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  238. r23put((T23*)(oBC21memory),b1,b1);
  239. }/*]*/
  240. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  241. r23put((T23*)(oBC21memory),b1,b1);
  242. }/*]*/
  243. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  244. r23put((T23*)(oBC21memory),b1,b1);
  245. }/*]*/
  246. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  247. r23put((T23*)(oBC21memory),b1,b1);
  248. }/*]*/
  249. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  250. r23put((T23*)(oBC21memory),b1,b1);
  251. }/*]*/
  252. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  253. r23put((T23*)(oBC21memory),b1,b1);
  254. }/*]*/
  255. r21add2(((T0*)ms15_22524));
  256. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  257. r23put((T23*)(oBC21memory),b1,b1);
  258. }/*]*/
  259. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  260. r23put((T23*)(oBC21memory),b1,b1);
  261. }/*]*/
  262. r21add2(((T0*)ms15_29246));
  263. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  264. r23put((T23*)(oBC21memory),b1,b1);
  265. }/*]*/
  266. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  267. r23put((T23*)(oBC21memory),b1,b1);
  268. }/*]*/
  269. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  270. r23put((T23*)(oBC21memory),b1,b1);
  271. }/*]*/
  272. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  273. r23put((T23*)(oBC21memory),b1,b1);
  274. }/*]*/
  275. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  276. r23put((T23*)(oBC21memory),b1,b1);
  277. }/*]*/
  278. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  279. r23put((T23*)(oBC21memory),b1,b1);
  280. }/*]*/
  281. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  282. r23put((T23*)(oBC21memory),b1,b1);
  283. }/*]*/
  284. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  285. r23put((T23*)(oBC21memory),b1,b1);
  286. }/*]*/
  287. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  288. r23put((T23*)(oBC21memory),b1,b1);
  289. }/*]*/
  290. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  291. r23put((T23*)(oBC21memory),b1,b1);
  292. }/*]*/
  293. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  294. r23put((T23*)(oBC21memory),b1,b1);
  295. }/*]*/
  296. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  297. r23put((T23*)(oBC21memory),b1,b1);
  298. }/*]*/
  299. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  300. r23put((T23*)(oBC21memory),b1,b1);
  301. }/*]*/
  302. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  303. r23put((T23*)(oBC21memory),b1,b1);
  304. }/*]*/
  305. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  306. r23put((T23*)(oBC21memory),b1,b1);
  307. }/*]*/
  308. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  309. r23put((T23*)(oBC21memory),b1,b1);
  310. }/*]*/
  311. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  312. r23put((T23*)(oBC21memory),b1,b1);
  313. }/*]*/
  314. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  315. r23put((T23*)(oBC21memory),b1,b1);
  316. }/*]*/
  317. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  318. r23put((T23*)(oBC21memory),b1,b1);
  319. }/*]*/
  320. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  321. r23put((T23*)(oBC21memory),b1,b1);
  322. }/*]*/
  323. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  324. r23put((T23*)(oBC21memory),b1,b1);
  325. }/*]*/
  326. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  327. r23put((T23*)(oBC21memory),b1,b1);
  328. }/*]*/
  329. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  330. r23put((T23*)(oBC21memory),b1,b1);
  331. }/*]*/
  332. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  333. r23put((T23*)(oBC21memory),b1,b1);
  334. }/*]*/
  335. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  336. r23put((T23*)(oBC21memory),b1,b1);
  337. }/*]*/
  338. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  339. r23put((T23*)(oBC21memory),b1,b1);
  340. }/*]*/
  341. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  342. r23put((T23*)(oBC21memory),b1,b1);
  343. }/*]*/
  344. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  345. r23put((T23*)(oBC21memory),b1,b1);
  346. }/*]*/
  347. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  348. r23put((T23*)(oBC21memory),b1,b1);
  349. }/*]*/
  350. r21add2(((T0*)ms15_22596));
  351. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  352. r23put((T23*)(oBC21memory),b1,b1);
  353. }/*]*/
  354. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  355. r23put((T23*)(oBC21memory),b1,b1);
  356. }/*]*/
  357. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  358. r23put((T23*)(oBC21memory),b1,b1);
  359. }/*]*/
  360. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  361. r23put((T23*)(oBC21memory),b1,b1);
  362. }/*]*/
  363. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  364. r23put((T23*)(oBC21memory),b1,b1);
  365. }/*]*/
  366. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  367. r23put((T23*)(oBC21memory),b1,b1);
  368. }/*]*/
  369. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  370. r23put((T23*)(oBC21memory),b1,b1);
  371. }/*]*/
  372. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  373. r23put((T23*)(oBC21memory),b1,b1);
  374. }/*]*/
  375. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  376. r23put((T23*)(oBC21memory),b1,b1);
  377. }/*]*/
  378. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  379. r23put((T23*)(oBC21memory),b1,b1);
  380. }/*]*/
  381. r21add2(((T0*)ms15_60016));
  382. r21add2(((T0*)ms15_26880));
  383. r21add2(((T0*)ms15_33240));
  384. r21add2(((T0*)ms15_21624));
  385. r21add2(((T0*)ms15_60060));
  386. r21add2(((T0*)ms15_26908));
  387. r21add2(((T0*)ms15_33270));
  388. r21add2(((T0*)ms15_21648));
  389. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  390. r23put((T23*)(oBC21memory),b1,b1);
  391. }/*]*/
  392. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  393. r23put((T23*)(oBC21memory),b1,b1);
  394. }/*]*/
  395. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  396. r23put((T23*)(oBC21memory),b1,b1);
  397. }/*]*/
  398. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  399. r23put((T23*)(oBC21memory),b1,b1);
  400. }/*]*/
  401. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  402. r23put((T23*)(oBC21memory),b1,b1);
  403. }/*]*/
  404. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  405. r23put((T23*)(oBC21memory),b1,b1);
  406. }/*]*/
  407. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  408. r23put((T23*)(oBC21memory),b1,b1);
  409. }/*]*/
  410. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  411. r23put((T23*)(oBC21memory),b1,b1);
  412. }/*]*/
  413. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  414. r23put((T23*)(oBC21memory),b1,b1);
  415. }/*]*/
  416. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  417. r23put((T23*)(oBC21memory),b1,b1);
  418. }/*]*/
  419. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  420. r23put((T23*)(oBC21memory),b1,b1);
  421. }/*]*/
  422. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  423. r23put((T23*)(oBC21memory),b1,b1);
  424. }/*]*/
  425. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  426. r23put((T23*)(oBC21memory),b1,b1);
  427. }/*]*/
  428. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  429. r23put((T23*)(oBC21memory),b1,b1);
  430. }/*]*/
  431. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  432. r23put((T23*)(oBC21memory),b1,b1);
  433. }/*]*/
  434. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  435. r23put((T23*)(oBC21memory),b1,b1);
  436. }/*]*/
  437. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  438. r23put((T23*)(oBC21memory),b1,b1);
  439. }/*]*/
  440. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  441. r23put((T23*)(oBC21memory),b1,b1);
  442. }/*]*/
  443. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  444. r23put((T23*)(oBC21memory),b1,b1);
  445. }/*]*/
  446. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  447. r23put((T23*)(oBC21memory),b1,b1);
  448. }/*]*/
  449. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  450. r23put((T23*)(oBC21memory),b1,b1);
  451. }/*]*/
  452. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  453. r23put((T23*)(oBC21memory),b1,b1);
  454. }/*]*/
  455. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  456. r23put((T23*)(oBC21memory),b1,b1);
  457. }/*]*/
  458. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  459. r23put((T23*)(oBC21memory),b1,b1);
  460. }/*]*/
  461. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  462. r23put((T23*)(oBC21memory),b1,b1);
  463. }/*]*/
  464. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  465. r23put((T23*)(oBC21memory),b1,b1);
  466. }/*]*/
  467. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  468. r23put((T23*)(oBC21memory),b1,b1);
  469. }/*]*/
  470. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  471. r23put((T23*)(oBC21memory),b1,b1);
  472. }/*]*/
  473. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  474. r23put((T23*)(oBC21memory),b1,b1);
  475. }/*]*/
  476. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  477. r23put((T23*)(oBC21memory),b1,b1);
  478. }/*]*/
  479. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  480. r23put((T23*)(oBC21memory),b1,b1);
  481. }/*]*/
  482. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  483. r23put((T23*)(oBC21memory),b1,b1);
  484. }/*]*/
  485. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  486. r23put((T23*)(oBC21memory),b1,b1);
  487. }/*]*/
  488. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  489. r23put((T23*)(oBC21memory),b1,b1);
  490. }/*]*/
  491. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  492. r23put((T23*)(oBC21memory),b1,b1);
  493. }/*]*/
  494. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  495. r23put((T23*)(oBC21memory),b1,b1);
  496. }/*]*/
  497. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  498. r23put((T23*)(oBC21memory),b1,b1);
  499. }/*]*/
  500. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  501. r23put((T23*)(oBC21memory),b1,b1);
  502. }/*]*/
  503. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  504. r23put((T23*)(oBC21memory),b1,b1);
  505. }/*]*/
  506. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  507. r23put((T23*)(oBC21memory),b1,b1);
  508. }/*]*/
  509. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  510. r23put((T23*)(oBC21memory),b1,b1);
  511. }/*]*/
  512. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  513. r23put((T23*)(oBC21memory),b1,b1);
  514. }/*]*/
  515. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  516. r23put((T23*)(oBC21memory),b1,b1);
  517. }/*]*/
  518. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  519. r23put((T23*)(oBC21memory),b1,b1);
  520. }/*]*/
  521. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  522. r23put((T23*)(oBC21memory),b1,b1);
  523. }/*]*/
  524. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  525. r23put((T23*)(oBC21memory),b1,b1);
  526. }/*]*/
  527. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  528. r23put((T23*)(oBC21memory),b1,b1);
  529. }/*]*/
  530. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  531. r23put((T23*)(oBC21memory),b1,b1);
  532. }/*]*/
  533. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  534. r23put((T23*)(oBC21memory),b1,b1);
  535. }/*]*/
  536. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  537. r23put((T23*)(oBC21memory),b1,b1);
  538. }/*]*/
  539. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  540. r23put((T23*)(oBC21memory),b1,b1);
  541. }/*]*/
  542. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  543. r23put((T23*)(oBC21memory),b1,b1);
  544. }/*]*/
  545. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  546. r23put((T23*)(oBC21memory),b1,b1);
  547. }/*]*/
  548. /*]*/
  549. }
  550. }}
  551. return oBC13string_aliaser;
  552. }
  553.  
  554.  
  555. void r273standard_gc_define2(T273* C){
  556. T6 _gc_check_id=0;
  557. T2 _rcid=0;
  558. T0* _rc=NULL;
  559. _rc=r273run_class(C);
  560. _rcid=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  561. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  562. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  563. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_11416));
  564. r2append_in(_rcid,((T0*)ms52_783104a));
  565. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_6360));
  566. r7copy((T7*)(((T0*)ms52_3073536)),((T0*)ms52_404));
  567. r2append_in(_rcid,((T0*)ms52_3073536));
  568. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_69075));
  569. r2append_in(_rcid,((T0*)ms52_3073536));
  570. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_361836));
  571. r273gc_store_in(C,((T0*)ms52_3073536));
  572. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_94205));
  573. r344memory_dispose(((T0*)ms52_3073536),((T0*)ms52_320),r273run_class(C));
  574. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_21552));
  575. r273gc_free_in(C,((T0*)ms52_3073536));
  576. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  577. r273gc_free_in(C,((T0*)ms52_3073536));
  578. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_407960));
  579. r344memory_dispose(((T0*)ms52_3073536),((T0*)ms52_322),r273run_class(C));
  580. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1591218));
  581. r273gc_free_in(C,((T0*)ms52_3073536));
  582. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  583. r273gc_free_in(C,((T0*)ms52_3073536));
  584. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_14102));
  585. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  586. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  587. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  588. r273gc_mark_in(C,((T0*)ms52_783104a));
  589. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_248a));
  590. r2append_in(_rcid,((T0*)ms52_783104a));
  591. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_582));
  592. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_3073536)))))->_count)=(0);
  593. /*]*/
  594. _gc_check_id=(r50is_tagged(((T50*)_rc)))&&(r47no_check((T47*)(oBC13run_control)));
  595. /*[IF*/
  596. if(_gc_check_id){
  597. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_21437));
  598. r2append_in(_rcid,((T0*)ms52_3073536));
  599. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_932));
  600. }
  601. /*FI]*/
  602. r50gc_mark_fixed_size(((T50*)_rc),0,((T0*)ms52_3073536));
  603. /*[IF*/
  604. if(_gc_check_id){
  605. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_270));
  606. }
  607. /*FI]*/
  608. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  609. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  610. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  611. r273gc_align_mark_in(C,((T0*)ms52_783104a));
  612. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_14570));
  613. r2append_in(_rcid,((T0*)ms52_783104a));
  614. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_585));
  615. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_3073536)))))->_count)=(0);
  616. /*]*/
  617. r50gc_align_mark_fixed_size(((T50*)_rc),((T0*)ms52_3073536));
  618. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  619. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms52_5346));
  620. r2append_in(_rcid,((T0*)ms52_783104a));
  621. r7copy((T7*)(((T0*)ms52_3073536)),((T0*)ms52_454797));
  622. r2append_in(_rcid,((T0*)ms52_3073536));
  623. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_78075));
  624. r2append_in(_rcid,((T0*)ms52_3073536));
  625. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_356700));
  626. r2append_in(_rcid,((T0*)ms52_3073536));
  627. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_5802));
  628. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  629. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_783104a)))))->_count)=(0);
  630. /*]*/
  631. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'T'));
  632. r2append_in(_rcid,((T0*)ms52_783104a));
  633. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\52'));
  634. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_990));
  635. r2append_in(_rcid,((T0*)ms52_783104a));
  636. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_4320));
  637. r7copy((T7*)(((T0*)ms52_3073536)),((T0*)ms14_404));
  638. r2append_in(_rcid,((T0*)ms52_3073536));
  639. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_884));
  640. /*[IF*/
  641. if((/*RF2*/((T344*)(oBC13gc_handler))->_info_flag/*1*/)){
  642. r273gc_info_nb_in(C,((T0*)ms52_3073536));
  643. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_620));
  644. }
  645. /*FI]*/
  646. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_741));
  647. r273gc_store_left_in(C,((T0*)ms52_3073536));
  648. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1425));
  649. r273gc_store_left_in(C,((T0*)ms52_3073536));
  650. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_3810));
  651. r273gc_store_in(C,((T0*)ms52_3073536));
  652. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_13200));
  653. r273gc_free_in(C,((T0*)ms52_3073536));
  654. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11044));
  655. r273gc_free_in(C,((T0*)ms52_3073536));
  656. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  657. r273gc_free_in(C,((T0*)ms52_3073536));
  658. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_39474));
  659. r273gc_store_left_in(C,((T0*)ms52_3073536));
  660. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_2370));
  661. r273gc_store_left_in(C,((T0*)ms52_3073536));
  662. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_712));
  663. r273gc_store_chunk_in(C,((T0*)ms52_3073536));
  664. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_103626));
  665. r273gc_store_in(C,((T0*)ms52_3073536));
  666. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11760));
  667. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11024));
  668. r273gc_store_chunk_in(C,((T0*)ms52_3073536));
  669. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_23640));
  670. r273gc_initialize_chunk(C,_rcid,((T0*)ms52_3073536));
  671. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_31806));
  672. r273gc_store_chunk_in(C,((T0*)ms52_3073536));
  673. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1694883));
  674. r273gc_store_chunk_in(C,((T0*)ms52_3073536));
  675. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_51520));
  676. r273gc_store_chunk_in(C,((T0*)ms52_3073536));
  677. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_816));
  678. r273gc_initialize_chunk(C,_rcid,((T0*)ms52_3073536));
  679. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_59265));
  680. r273gc_free_in(C,((T0*)ms52_3073536));
  681. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1725));
  682. r273gc_free_in(C,((T0*)ms52_3073536));
  683. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  684. r273gc_free_in(C,((T0*)ms52_3073536));
  685. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_15800));
  686. r273gc_store_chunk_in(C,((T0*)ms52_3073536));
  687. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_8008));
  688. r273gc_initialize_chunk(C,_rcid,((T0*)ms52_3073536));
  689. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_21504));
  690. /*[IF*/
  691. if(r273need_c_struct(C)){
  692. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_14003));
  693. r2append_in(_rcid,((T0*)ms52_3073536));
  694. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  695. }
  696. /*FI]*/
  697. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11862));
  698. r2append_in(_rcid,((T0*)ms52_3073536));
  699. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_2118));
  700. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  701. }
  702.  
  703.  
  704. void r273c_header_pass4(T273* C){
  705. /*[IF*/
  706. if(r273is_reference(C)){
  707. /*[IF*/
  708. if(r273need_c_struct(C)){
  709. r273standard_c_struct(C);
  710. r273standard_c_object_model(C);
  711. }
  712. /*FI]*/
  713. }
  714. /*FI]*/
  715. r273standard_c_print_function(C);
  716. }
  717.  
  718.  
  719. T0* r273to_runnable(T273* C,T0* a1){
  720. T0* R=NULL;
  721. T0* _rt=NULL;
  722. T0* _t2=NULL;
  723. T0* _t1=NULL;
  724. T0* _rgl=NULL;
  725. T2 _i=0;
  726. /*[IF*/
  727. if(r273is_written_runnable(C)){
  728. R=((T0*)(C));
  729. }
  730. else{
  731. _rgl=r258twin((T258*)((/*RF2*/(C)->_generic_list/*8*/)));
  732. _i=(/*RF2*/(((T258*)_rgl))->_upper/*8*/);
  733. while (!((_i)==(0)))
  734. {
  735. _t1=r258item(((T258*)_rgl),_i);
  736. _t2=X52to_runnable(_t1,a1);
  737. /*[IF*/
  738. if(((_t2)==((void*)(NULL)))||(!(X52is_run_type(_t2)))){
  739. r66add_type(_t1,((T0*)ms14_11292));
  740. r66print_as_error((T66*)(oBC13eh));
  741. _i=0;
  742. }
  743. else{
  744. /*[IRF3.6put*/{T258* C1=((T258*)_rgl);
  745. T0* b1=_t2;
  746. T2 b2=_i;
  747. ((/*RF2*/(C1)->_storage/*0*/))[(b2)-((/*RF2*/(C1)->_lower/*12*/))]=(b1);
  748. }/*]*/
  749. }
  750. /*FI]*/
  751. _t2=X52run_type(_t2);
  752. /*[IF*/
  753. if(X52is_expanded(_t2)){
  754. r50set_at_run_time((T50*)(X52run_class(_t2)));
  755. }
  756. /*FI]*/
  757. _i=(_i)-(1);
  758. }
  759. {T273*n=((T273*)malloc(sizeof(*n))/*20*/);
  760. *n=M273;
  761. r273make_runnable(n,(T0*)C,_rgl);
  762. _rt=((T0*)n);
  763. }
  764. /*[IF*/
  765. if(((/*RF2*/(C)->_run_type_memory/*16*/))==((void*)(NULL))){
  766. (/*SFN*/C->_run_type_memory)=_rt;
  767. R=((T0*)(C));
  768. }
  769. else{
  770. R=r273twin(C);
  771. /*[IRF3.3set_run_type_memory*/((((T273*)(((T273*)R))))->_run_type_memory)=(_rt);
  772. /*]*/
  773. }
  774. /*FI]*/
  775. r273basic_checks((T273*)(r273run_type(((T273*)R))));
  776. }
  777. /*FI]*/
  778. return R;
  779. }
  780.  
  781.  
  782. void r273make_runnable(T273* C,T0* a1,T0* a2){
  783. T0* _t=NULL;
  784. T2 _i=0;
  785. (/*SFN*/C->_base_class_name)=(/*RF2*/(((T273*)a1))->_base_class_name/*4*/);
  786. (/*SFN*/C->_generic_list)=a2;
  787. r7copy((T7*)(oBC273tmp_mark),(/*RF2*/((T61*)((/*RF2*/(C)->_base_class_name/*4*/)))->_to_string/*8*/));
  788. r7extend((T7*)(oBC273tmp_mark),((T3)'\133'));
  789. _i=1;
  790. while (!((_i)>((/*RF2*/(((T258*)a2))->_upper/*8*/))))
  791. {
  792. _t=r258item(((T258*)a2),_i);
  793. r7append((T7*)(oBC273tmp_mark),X52run_time_mark(_t));
  794. _i=(_i)+(1);
  795. /*[IF*/
  796. if((_i)<=((/*RF2*/(((T258*)a2))->_upper/*8*/))){
  797. r7extend((T7*)(oBC273tmp_mark),((T3)'\54'));
  798. }
  799. /*FI]*/
  800. }
  801. r7extend((T7*)(oBC273tmp_mark),((T3)'\135'));
  802. (/*SFN*/C->_written_mark)=((/*UT*/(void)((T21*)(r273string_aliaser()))),r21item(oBC273tmp_mark));
  803. (/*SFN*/C->_run_type_memory)=((T0*)(C));
  804. }
  805.  
  806.  
  807. void r273standard_gc_define1(T273* C){
  808. T2 _rcid=0;
  809. T0* _rc=NULL;
  810. _rc=r273run_class(C);
  811. _rcid=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  812. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_6448));
  813. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_5495));
  814. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'B'));
  815. r2append_in(_rcid,((T0*)ms52_783104a));
  816. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  817. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_404));
  818. r2append_in(_rcid,((T0*)ms52_783104a));
  819. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_138));
  820. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_5495));
  821. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'B'));
  822. r2append_in(_rcid,((T0*)ms52_783104a));
  823. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_414));
  824. r2append_in(_rcid,((T0*)ms52_783104a));
  825. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_78572));
  826. r2append_in(_rcid,((T0*)ms52_783104a));
  827. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_12042));
  828. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_783104a));
  829. /*]*/
  830. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_404));
  831. r2append_in(_rcid,((T0*)ms52_783104a));
  832. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\52'));
  833. r273gc_store_in(C,((T0*)ms52_783104a));
  834. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms14_1260));
  835. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_993));
  836. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  837. r273gc_store_left_in(C,((T0*)ms52_783104a));
  838. r325put_extern2((T325*)(oBC13cpp),((T0*)ms52_783104a),((T3)'0'));
  839. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms52_2345));
  840. r273gc_store_chunk_in(C,((T0*)ms52_783104a));
  841. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms14_1260));
  842. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_404));
  843. r2append_in(_rcid,((T0*)ms52_783104a));
  844. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\52'));
  845. r273gc_free_in(C,((T0*)ms52_783104a));
  846. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms14_1260));
  847. /*[IF*/
  848. if((/*RF2*/((T344*)(oBC13gc_handler))->_info_flag/*1*/)){
  849. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_993));
  850. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  851. r273gc_info_nb_in(C,((T0*)ms52_783104a));
  852. r325put_extern2((T325*)(oBC13cpp),((T0*)ms52_783104a),((T3)'0'));
  853. }
  854. /*FI]*/
  855. }
  856.  
  857.  
  858. T0* r273twin(T273* C){
  859. T0* R=NULL;
  860. R=malloc(sizeof(*C));
  861. *((T273*)R)=*C;
  862. return R;
  863. }
  864.  
  865.  
  866. void r273id_extra_information(T273* C,T0* a1){
  867. r48put_string(((T48*)a1),((T0*)ms52_9724));
  868. /*[IF*/
  869. if(r273is_reference(C)){
  870. r48put_string(((T48*)a1),((T0*)ms52_1476));
  871. }
  872. else{
  873. r48put_string(((T48*)a1),((T0*)ms52_759));
  874. }
  875. /*FI]*/
  876. }
  877.  
  878.  
  879. void r273standard_just_before_gc_mark_in(T273* C,T0* a1){
  880. r273gc_free_in(C,a1);
  881. r7extend(((T7*)a1),((T3)'\75'));
  882. r7append(((T7*)a1),((T0*)ms14_1260));
  883. r7append(((T7*)a1),((T0*)ms14_138));
  884. }
  885.  
  886.  
  887. void r273gc_define1(T273* C){
  888. /*[IF*/
  889. if(r273is_reference(C)){
  890. r273standard_gc_define1(C);
  891. }
  892. /*FI]*/
  893. }
  894.  
  895.  
  896. void r273gc_mark_in(T273* C,T0* a1){
  897. r7append(((T7*)a1),((T0*)ms14_8764));
  898. r2append_in(r273id(C),a1);
  899. }
  900.  
  901.  
  902. void r273gc_info_nb_in(T273* C,T0* a1){
  903. r7append(((T7*)a1),((T0*)ms52_14920));
  904. r2append_in(r273id(C),a1);
  905. }
  906.  
  907.  
  908. void r273c_type_for_external_in(T273* C,T0* a1){
  909. /*[IF*/
  910. if(r273is_reference(C)){
  911. r7append(((T7*)a1),((T0*)ms14_1736a));
  912. r7extend(((T7*)a1),((T3)'\52'));
  913. }
  914. else{
  915. r273c_type_for_result_in(C,a1);
  916. }
  917. /*FI]*/
  918. }
  919.  
  920.  
  921. void r273c_type_for_argument_in(T273* C,T0* a1){
  922. /*[IF*/
  923. if(r273is_reference(C)){
  924. r7append(((T7*)a1),((T0*)ms14_522));
  925. }
  926.  else if(r273is_dummy_expanded(C)){
  927. r7append(((T7*)a1),((T0*)ms14_993));
  928. }
  929. else{
  930. r7extend(((T7*)a1),((T3)'T'));
  931. r2append_in(r273id(C),a1);
  932. }
  933. /*FI]*/
  934. }
  935.  
  936.  
  937. T0* r273run_time_mark(T273* C){
  938. T0* R=NULL;
  939. /*[IF*/
  940. if(r273is_run_type(C)){
  941. R=(/*RF2*/((T273*)((/*RF2*/(C)->_run_type_memory/*16*/)))->_written_mark/*12*/);
  942. }
  943. /*FI]*/
  944. return R;
  945. }
  946.  
  947.  
  948. void r273gc_store_in(T273* C,T0* a1){
  949. r7append(((T7*)a1),((T0*)ms52_2785));
  950. r2append_in(r273id(C),a1);
  951. }
  952.  
  953.  
  954. T0* r273run_class(T273* C){
  955. T0* R=NULL;
  956. /*[IF*/
  957. if(r273is_run_type(C)){
  958. R=r49run_class((/*RF2*/(C)->_run_type_memory/*16*/));
  959. }
  960. /*FI]*/
  961. return R;
  962. }
  963.  
  964.  
  965. T6 r273is_dummy_expanded(T273* C){
  966. T6 R=0;
  967. /*[IF*/
  968. if(r273is_user_expanded(C)){
  969. R=(r50writable_attributes((T50*)(r273run_class(C))))==((void*)(NULL));
  970. }
  971. /*FI]*/
  972. return R;
  973. }
  974.  
  975.  
  976. void r273fatal_error(T0* a1){
  977. /*[IRF3.6append*/{T0* b1=a1;
  978. r7append((T7*)(oBC66explanation),b1);
  979. }/*]*/
  980. r66print_as_fatal_error((T66*)(oBC13eh));
  981. }
  982.  
  983.  
  984. void r273c_type_for_result_in(T273* C,T0* a1){
  985. /*[IF*/
  986. if(r273is_reference(C)){
  987. r7append(((T7*)a1),((T0*)ms14_522));
  988. }
  989.  else if(r273is_dummy_expanded(C)){
  990. r7append(((T7*)a1),((T0*)ms14_993));
  991. }
  992. else{
  993. r7extend(((T7*)a1),((T3)'T'));
  994. r2append_in(r273id(C),a1);
  995. }
  996. /*FI]*/
  997. }
  998.  
  999.  
  1000. T6 r273is_expanded(T273* C){
  1001. T6 R=0;
  1002. R=(/*RF2*/((T51*)(r273base_class(C)))->_is_expanded/*17*/);
  1003. return R;
  1004. }
  1005.  
  1006.  
  1007. void r273c_type_for_target_in(T273* C,T0* a1){
  1008. /*[IF*/
  1009. if(r273is_dummy_expanded(C)){
  1010. r7append(((T7*)a1),((T0*)ms14_993));
  1011. }
  1012. else{
  1013. r7extend(((T7*)a1),((T3)'T'));
  1014. r2append_in(r273id(C),a1);
  1015. r7extend(((T7*)a1),((T3)'\52'));
  1016. }
  1017. /*FI]*/
  1018. }
  1019.  
  1020.  
  1021. T0* r273expanded_initializer(T273* C){
  1022. T0* R=NULL;
  1023. /*[IF*/
  1024. if(r273is_expanded(C)){
  1025. R=r51expanded_initializer((T51*)(r273base_class(C)),(T0*)C);
  1026. }
  1027. /*FI]*/
  1028. return R;
  1029. }
  1030.  
  1031.  
  1032. T6 r273stupid_switch(T273* C,T0* a1){
  1033. T6 R=0;
  1034. T2 _i=0;
  1035. _i=(/*RF2*/((T258*)((/*RF2*/(C)->_generic_list/*8*/)))->_upper/*8*/);
  1036. R=1;
  1037. while (!((!(R))||((_i)==(0))))
  1038. {
  1039. R=X52stupid_switch(r258item((T258*)((/*RF2*/(C)->_generic_list/*8*/)),_i),a1);
  1040. _i=(_i)-(1);
  1041. }
  1042. return R;
  1043. }
  1044.  
  1045.  
  1046. void r273demangling_in(T273* C,T0* a1){
  1047. /*[IF*/
  1048. if(r273is_reference(C)){
  1049. r7extend(((T7*)a1),((T3)'R'));
  1050. }
  1051. else{
  1052. r7extend(((T7*)a1),((T3)'E'));
  1053. }
  1054. /*FI]*/
  1055. r7extend(((T7*)a1),((T3)'\40'));
  1056. r7append(((T7*)a1),r273run_time_mark(C));
  1057. }
  1058.  
  1059.  
  1060. void r273gc_initialize_chunk(T273* C,T2 a1,T0* a2){
  1061. r7extend(((T7*)a2),((T3)'\52'));
  1062. r273gc_store_chunk_in(C,a2);
  1063. r7append(((T7*)a2),((T0*)ms14_266a));
  1064. r2append_in(a1,a2);
  1065. r7append(((T7*)a2),((T0*)ms14_138));
  1066. r273gc_store_in(C,a2);
  1067. r7append(((T7*)a2),((T0*)ms52_1715));
  1068. r2append_in(a1,a2);
  1069. r7append(((T7*)a2),((T0*)ms52_1005));
  1070. r273gc_store_chunk_in(C,a2);
  1071. r7append(((T7*)a2),((T0*)ms52_11742));
  1072. r273gc_store_left_in(C,a2);
  1073. r7append(((T7*)a2),((T0*)ms14_266a));
  1074. r2append_in(a1,a2);
  1075. r7append(((T7*)a2),((T0*)ms52_34060));
  1076. r273gc_store_in(C,a2);
  1077. r7append(((T7*)a2),((T0*)ms52_2040));
  1078. }
  1079.  
  1080.  
  1081. void r273c_initialize(T273* C){
  1082. /*[IF*/
  1083. if(r273is_expanded((T273*)((/*RF2*/(C)->_run_type_memory/*16*/)))){
  1084. r273c_initialize_expanded(C);
  1085. }
  1086. else{
  1087. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_1260));
  1088. /*]*/
  1089. }
  1090. /*FI]*/
  1091. }
  1092.  
  1093.  
  1094. void r273c_frame_descriptor(T273* C){
  1095. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\45'));
  1096. /*[IF*/
  1097. if(r273is_reference(C)){
  1098. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'R'));
  1099. }
  1100. else{
  1101. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'E'));
  1102. }
  1103. /*FI]*/
  1104. r2append_in(r273id(C),oBC13c_frame_descriptor_format);
  1105. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\45'));
  1106. }
  1107.  
  1108.  
  1109. void r273c_initialize_expanded(T273* C){
  1110. T0* _rf=NULL;
  1111. T2 _i=0;
  1112. T0* _wa=NULL;
  1113. /*[IF*/
  1114. if(r273is_dummy_expanded(C)){
  1115. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1116. T3 b1=((T3)'0');
  1117. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1118. }/*]*/
  1119. /*]*/
  1120. }
  1121. else{
  1122. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1123. T3 b1=((T3)'\173');
  1124. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1125. }/*]*/
  1126. /*]*/
  1127. _wa=r50writable_attributes((T50*)(r273run_class(C)));
  1128. _i=(/*RF2*/(((T346*)_wa))->_upper/*12*/);
  1129. while (!((_i)==(0)))
  1130. {
  1131. _rf=r346item(((T346*)_wa),_i);
  1132. X52c_initialize((/*RF2*/(((T345*)_rf))->_result_type/*28*/));
  1133. _i=(_i)-(1);
  1134. /*[IF*/
  1135. if((_i)>(0)){
  1136. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1137. T3 b1=((T3)'\54');
  1138. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1139. }/*]*/
  1140. /*]*/
  1141. }
  1142. /*FI]*/
  1143. }
  1144. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1145. T3 b1=((T3)'\175');
  1146. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1147. }/*]*/
  1148. /*]*/
  1149. }
  1150. /*FI]*/
  1151. }
  1152.  
  1153.  
  1154. void r273gc_info_in(T273* C,T0* a1){
  1155. /*[IF*/
  1156. if(r273is_reference(C)){
  1157. r273standard_gc_info_in(C,a1);
  1158. }
  1159. /*FI]*/
  1160. }
  1161.  
  1162.  
  1163. void r273gc_define2(T273* C){
  1164. /*[IF*/
  1165. if(r273is_reference(C)){
  1166. r273standard_gc_define2(C);
  1167. }
  1168. else{
  1169. r273standard_gc_define2_for_expanded(C);
  1170. }
  1171. /*FI]*/
  1172. }
  1173.  
  1174.  
  1175. T0* r254generic_list(T254* C){
  1176. T0* R=NULL;
  1177. /*[IF*/
  1178. if(r254is_generic(C)){
  1179. R=X52generic_list((/*RF2*/(C)->_run_type/*20*/));
  1180. }
  1181. else{
  1182. r254fatal_error_generic_list(C);
  1183. }
  1184. /*FI]*/
  1185. return R;
  1186. }
  1187.  
  1188.  
  1189. T6 r254need_gc_mark_function(T254* C){
  1190. T6 R=0;
  1191. R=X52need_gc_mark_function((/*RF2*/(C)->_run_type/*20*/));
  1192. return R;
  1193. }
  1194.  
  1195.  
  1196. T2 r254id(T254* C){
  1197. T2 R=0;
  1198. R=(/*RF2*/((T50*)(r254run_class(C)))->_id/*4*/);
  1199. return R;
  1200. }
  1201.  
  1202.  
  1203. void r254cast_to_ref(T254* C){
  1204. X52cast_to_ref((/*RF2*/(C)->_run_type/*20*/));
  1205. }
  1206.  
  1207.  
  1208. void r254c_header_pass1(T254* C){
  1209. X52c_header_pass1((/*RF2*/(C)->_run_type/*20*/));
  1210. }
  1211.  
  1212.  
  1213. void r254just_before_gc_mark_in(T254* C,T0* a1){
  1214. X52just_before_gc_mark_in((/*RF2*/(C)->_run_type/*20*/),a1);
  1215. }
  1216.  
  1217.  
  1218. void r254c_header_pass3(T254* C){
  1219. X52c_header_pass3((/*RF2*/(C)->_run_type/*20*/));
  1220. }
  1221.  
  1222.  
  1223. void r254gc_call_new_in(T254* C,T0* a1){
  1224. r7append(((T7*)a1),((T0*)ms14_990));
  1225. r2append_in(r254id(C),a1);
  1226. r7extend(((T7*)a1),((T3)'\50'));
  1227. r7extend(((T7*)a1),((T3)'\51'));
  1228. }
  1229.  
  1230.  
  1231. T6 r254is_array(T254* C){
  1232. T6 R=0;
  1233. R=X52is_array((/*RF2*/(C)->_run_type/*20*/));
  1234. return R;
  1235. }
  1236.  
  1237.  
  1238. T0* r254base_class(T254* C){
  1239. T0* R=NULL;
  1240. T0* _bcn=NULL;
  1241. _bcn=r254base_class_name(C);
  1242. /*[IF*/
  1243. if((_bcn)!=((void*)(NULL))){
  1244. R=r61base_class(((T61*)_bcn));
  1245. }
  1246. else{
  1247. /*[IRF3.6append*/{T0* b1=((T0*)ms52_36693);
  1248. r7append((T7*)(oBC66explanation),b1);
  1249. }/*]*/
  1250. r66add_type((T0*)C,((T0*)ms14_46));
  1251. r66print_as_fatal_error((T66*)(oBC13eh));
  1252. }
  1253. /*FI]*/
  1254. return R;
  1255. }
  1256.  
  1257.  
  1258. T0* r254look_up_for(T254* C,T0* a1,T0* a2){
  1259. T0* R=NULL;
  1260. R=r51look_up_for((T51*)(r254base_class(C)),a1,a2);
  1261. return R;
  1262. }
  1263.  
  1264.  
  1265. T2 r254c_sizeof(T254* C){
  1266. T2 R=0;
  1267. R=X52c_sizeof((/*RF2*/(C)->_run_type/*20*/));
  1268. return R;
  1269. }
  1270.  
  1271.  
  1272. T6 r254has_creation(T254* C,T0* a1){
  1273. T6 R=0;
  1274. R=X52has_creation((/*RF2*/(C)->_run_type/*20*/),a1);
  1275. return R;
  1276. }
  1277.  
  1278.  
  1279. T6 r254need_c_struct(T254* C){
  1280. T6 R=0;
  1281. R=X52need_c_struct((/*RF2*/(C)->_run_type/*20*/));
  1282. return R;
  1283. }
  1284.  
  1285.  
  1286. void r254mapping_cast(T254* C){
  1287. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_15456)))))->_count)=(0);
  1288. /*]*/
  1289. r7extend((T7*)(((T0*)ms52_15456)),((T3)'\50'));
  1290. r254c_type_for_target_in(C,((T0*)ms52_15456));
  1291. r7extend((T7*)(((T0*)ms52_15456)),((T3)'\51'));
  1292. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_15456));
  1293. /*]*/
  1294. }
  1295.  
  1296.  
  1297. T0* r254actual_reference(T254* C,T0* a1){
  1298. T0* R=NULL;
  1299. R=X52actual_reference((/*RF2*/(C)->_run_type/*20*/),a1);
  1300. return R;
  1301. }
  1302.  
  1303.  
  1304. T6 r254is_a_in(T254* C,T0* a1,T0* a2){
  1305. T6 R=0;
  1306. T0* _ct=NULL;
  1307. T0* _t2=NULL;
  1308. T0* _t1=NULL;
  1309. /*[IF*/
  1310. if(((/*RF2*/(C)->_written_mark/*16*/))==((void*)(X52written_mark(a1)))){
  1311. R=1;
  1312. }
  1313. else{
  1314. _ct=(/*RF2*/(((T50*)a2))->_current_type/*0*/);
  1315. _t1=r254to_runnable(C,_ct);
  1316. _t2=X52to_runnable(a1,_ct);
  1317. /*[IF*/
  1318. if((X52run_time_mark(_t1))==((void*)(X52run_time_mark(_t2)))){
  1319. R=1;
  1320. }
  1321. else{
  1322. R=X52is_a(_t1,_t2);
  1323. }
  1324. /*FI]*/
  1325. }
  1326. /*FI]*/
  1327. return R;
  1328. }
  1329.  
  1330.  
  1331. T6 r254is_native_array(T254* C){
  1332. T6 R=0;
  1333. T0* _tna=NULL;
  1334. _tna=NULL;
  1335. R=(_tna)!=((void*)(NULL));
  1336. return R;
  1337. }
  1338.  
  1339.  
  1340. T6 r254is_boolean(T254* C){
  1341. T6 R=0;
  1342. R=X52is_boolean((/*RF2*/(C)->_run_type/*20*/));
  1343. return R;
  1344. }
  1345.  
  1346.  
  1347. T6 r254is_a(T254* C,T0* a1){
  1348. T6 R=0;
  1349. T0* _tlf=NULL;
  1350. /*[IF*/
  1351. if(X52is_like_feature(a1)){
  1352. _tlf=a1;
  1353. if(NULL!=(_tlf)){
  1354. switch(((T0*)_tlf)->id){
  1355. case 254:
  1356. break;
  1357. default:
  1358. _tlf=NULL;
  1359. }
  1360. }/*[IF*/
  1361. if((X82to_string((/*RF2*/(C)->_like_what/*12*/)))==((void*)(X82to_string((/*RF2*/(((T254*)_tlf))->_like_what/*12*/))))){
  1362. R=1;
  1363. }
  1364. else{
  1365. R=X52is_a((/*RF2*/(C)->_run_type/*20*/),a1);
  1366. }
  1367. /*FI]*/
  1368. }
  1369. else{
  1370. R=X52is_a((/*RF2*/(C)->_run_type/*20*/),a1);
  1371. }
  1372. /*FI]*/
  1373. /*[IF*/
  1374. if(!(R)){
  1375. r66add_position((/*RF2*/(C)->_start_position/*4*/));
  1376. }
  1377. /*FI]*/
  1378. return R;
  1379. }
  1380.  
  1381.  
  1382. T6 r254is_generic(T254* C){
  1383. T6 R=0;
  1384. R=X52is_generic((/*RF2*/(C)->_run_type/*20*/));
  1385. return R;
  1386. }
  1387.  
  1388.  
  1389. void r254anchor_cycle_start(T254* C){
  1390. T2 _i=0;
  1391. /*[IF*/
  1392. if(((/*RF2*/((T67*)(oBC255visited))->_upper/*8*/))<(0)){
  1393. r67add_last((T67*)(oBC255visited),(/*RF2*/(C)->_start_position/*4*/));
  1394. }
  1395.  else if(r67fast_has((T67*)(oBC255visited),(/*RF2*/(C)->_start_position/*4*/))){
  1396. _i=0;
  1397. while (!((_i)>((/*RF2*/((T67*)(oBC255visited))->_upper/*8*/))))
  1398. {
  1399. r66add_position(/*(IRF4.6item*/((/*RF2*/((T67*)(oBC255visited))->_storage/*0*/))[_i]/*)*/);
  1400. _i=(_i)+(1);
  1401. }
  1402. r254fatal_error(((T0*)ms14_47034));
  1403. }
  1404. else{
  1405. r67add_last((T67*)(oBC255visited),(/*RF2*/(C)->_start_position/*4*/));
  1406. }
  1407. /*FI]*/
  1408. }
  1409.  
  1410.  
  1411. void r254make(T254* C,T68 a1,T0* a2){
  1412. (/*SFN*/C->_start_position)=a1;
  1413. (/*SFN*/C->_like_what)=a2;
  1414. r7copy((T7*)(((T0*)ms255_86756)),((T0*)ms14_1684));
  1415. r7extend((T7*)(((T0*)ms255_86756)),((T3)'\40'));
  1416. X82declaration_in((/*RF2*/(C)->_like_what/*12*/),((T0*)ms255_86756));
  1417. (/*SFN*/C->_written_mark)=((/*UT*/(void)((T21*)(r254string_aliaser()))),r21item(((T0*)ms255_86756)));
  1418. }
  1419.  
  1420.  
  1421. void r254anchor_cycle_end(T254* C){
  1422. /*[IF*/
  1423. if(!se_cmpT68(((/*RF2*/(C)->_start_position/*4*/)),(/*(IRF4.6first*/((/*RF2*/((T67*)(oBC255visited))->_storage/*0*/))[0]/*)*/))){
  1424. /*[IRF3.3clear*/((((T67*)((T67*)(oBC255visited))))->_upper)=(-(1));
  1425. /*]*/
  1426. }
  1427. /*FI]*/
  1428. }
  1429.  
  1430.  
  1431. T6 r254is_reference(T254* C){
  1432. T6 R=0;
  1433. R=X52is_reference((/*RF2*/(C)->_run_type/*20*/));
  1434. return R;
  1435. }
  1436.  
  1437.  
  1438. T6 r254is_real(T254* C){
  1439. T6 R=0;
  1440. R=X52is_real((/*RF2*/(C)->_run_type/*20*/));
  1441. return R;
  1442. }
  1443.  
  1444.  
  1445. T6 r254is_user_expanded(T254* C){
  1446. T6 R=0;
  1447. R=X52is_user_expanded((/*RF2*/(C)->_run_type/*20*/));
  1448. return R;
  1449. }
  1450.  
  1451.  
  1452. T6 r254is_integer(T254* C){
  1453. T6 R=0;
  1454. R=X52is_integer((/*RF2*/(C)->_run_type/*20*/));
  1455. return R;
  1456. }
  1457.  
  1458.  
  1459. T6 r254is_any(T254* C){
  1460. T6 R=0;
  1461. R=X52is_any((/*RF2*/(C)->_run_type/*20*/));
  1462. return R;
  1463. }
  1464.  
  1465.  
  1466. void r254fatal_error_generic_list(T254* C){
  1467. r66add_type((T0*)C,((T0*)ms52_28899));
  1468. r66print_as_fatal_error((T66*)(oBC13eh));
  1469. }
  1470.  
  1471.  
  1472. T6 r254is_string(T254* C){
  1473. T6 R=0;
  1474. R=X52is_string((/*RF2*/(C)->_run_type/*20*/));
  1475. return R;
  1476. }
  1477.  
  1478.  
  1479. void r254c_initialize_in(T254* C,T0* a1){
  1480. X52c_initialize_in((/*RF2*/(C)->_run_type/*20*/),a1);
  1481. }
  1482.  
  1483.  
  1484. T0* r254smallest_ancestor(T254* C,T0* a1){
  1485. T0* R=NULL;
  1486. R=X52smallest_ancestor((/*RF2*/(C)->_run_type/*20*/),a1);
  1487. return R;
  1488. }
  1489.  
  1490.  
  1491. void r254c_header_pass2(T254* C){
  1492. X52c_header_pass2((/*RF2*/(C)->_run_type/*20*/));
  1493. }
  1494.  
  1495.  
  1496. T0* r254string_aliaser(void){
  1497. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  1498. {T21*n=((T21*)malloc(1));
  1499. oBC13string_aliaser=((T0*)n);
  1500. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  1501. r23put((T23*)(oBC21memory),b1,b1);
  1502. }/*]*/
  1503. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  1504. r23put((T23*)(oBC21memory),b1,b1);
  1505. }/*]*/
  1506. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  1507. r23put((T23*)(oBC21memory),b1,b1);
  1508. }/*]*/
  1509. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  1510. r23put((T23*)(oBC21memory),b1,b1);
  1511. }/*]*/
  1512. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  1513. r23put((T23*)(oBC21memory),b1,b1);
  1514. }/*]*/
  1515. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  1516. r23put((T23*)(oBC21memory),b1,b1);
  1517. }/*]*/
  1518. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  1519. r23put((T23*)(oBC21memory),b1,b1);
  1520. }/*]*/
  1521. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  1522. r23put((T23*)(oBC21memory),b1,b1);
  1523. }/*]*/
  1524. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  1525. r23put((T23*)(oBC21memory),b1,b1);
  1526. }/*]*/
  1527. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  1528. r23put((T23*)(oBC21memory),b1,b1);
  1529. }/*]*/
  1530. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  1531. r23put((T23*)(oBC21memory),b1,b1);
  1532. }/*]*/
  1533. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  1534. r23put((T23*)(oBC21memory),b1,b1);
  1535. }/*]*/
  1536. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  1537. r23put((T23*)(oBC21memory),b1,b1);
  1538. }/*]*/
  1539. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  1540. r23put((T23*)(oBC21memory),b1,b1);
  1541. }/*]*/
  1542. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  1543. r23put((T23*)(oBC21memory),b1,b1);
  1544. }/*]*/
  1545. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  1546. r23put((T23*)(oBC21memory),b1,b1);
  1547. }/*]*/
  1548. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  1549. r23put((T23*)(oBC21memory),b1,b1);
  1550. }/*]*/
  1551. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  1552. r23put((T23*)(oBC21memory),b1,b1);
  1553. }/*]*/
  1554. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  1555. r23put((T23*)(oBC21memory),b1,b1);
  1556. }/*]*/
  1557. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  1558. r23put((T23*)(oBC21memory),b1,b1);
  1559. }/*]*/
  1560. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  1561. r23put((T23*)(oBC21memory),b1,b1);
  1562. }/*]*/
  1563. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  1564. r23put((T23*)(oBC21memory),b1,b1);
  1565. }/*]*/
  1566. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  1567. r23put((T23*)(oBC21memory),b1,b1);
  1568. }/*]*/
  1569. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  1570. r23put((T23*)(oBC21memory),b1,b1);
  1571. }/*]*/
  1572. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  1573. r23put((T23*)(oBC21memory),b1,b1);
  1574. }/*]*/
  1575. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  1576. r23put((T23*)(oBC21memory),b1,b1);
  1577. }/*]*/
  1578. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  1579. r23put((T23*)(oBC21memory),b1,b1);
  1580. }/*]*/
  1581. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  1582. r23put((T23*)(oBC21memory),b1,b1);
  1583. }/*]*/
  1584. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  1585. r23put((T23*)(oBC21memory),b1,b1);
  1586. }/*]*/
  1587. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  1588. r23put((T23*)(oBC21memory),b1,b1);
  1589. }/*]*/
  1590. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  1591. r23put((T23*)(oBC21memory),b1,b1);
  1592. }/*]*/
  1593. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  1594. r23put((T23*)(oBC21memory),b1,b1);
  1595. }/*]*/
  1596. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  1597. r23put((T23*)(oBC21memory),b1,b1);
  1598. }/*]*/
  1599. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  1600. r23put((T23*)(oBC21memory),b1,b1);
  1601. }/*]*/
  1602. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  1603. r23put((T23*)(oBC21memory),b1,b1);
  1604. }/*]*/
  1605. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  1606. r23put((T23*)(oBC21memory),b1,b1);
  1607. }/*]*/
  1608. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  1609. r23put((T23*)(oBC21memory),b1,b1);
  1610. }/*]*/
  1611. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  1612. r23put((T23*)(oBC21memory),b1,b1);
  1613. }/*]*/
  1614. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  1615. r23put((T23*)(oBC21memory),b1,b1);
  1616. }/*]*/
  1617. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  1618. r23put((T23*)(oBC21memory),b1,b1);
  1619. }/*]*/
  1620. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  1621. r23put((T23*)(oBC21memory),b1,b1);
  1622. }/*]*/
  1623. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  1624. r23put((T23*)(oBC21memory),b1,b1);
  1625. }/*]*/
  1626. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  1627. r23put((T23*)(oBC21memory),b1,b1);
  1628. }/*]*/
  1629. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  1630. r23put((T23*)(oBC21memory),b1,b1);
  1631. }/*]*/
  1632. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  1633. r23put((T23*)(oBC21memory),b1,b1);
  1634. }/*]*/
  1635. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  1636. r23put((T23*)(oBC21memory),b1,b1);
  1637. }/*]*/
  1638. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  1639. r23put((T23*)(oBC21memory),b1,b1);
  1640. }/*]*/
  1641. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  1642. r23put((T23*)(oBC21memory),b1,b1);
  1643. }/*]*/
  1644. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  1645. r23put((T23*)(oBC21memory),b1,b1);
  1646. }/*]*/
  1647. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  1648. r23put((T23*)(oBC21memory),b1,b1);
  1649. }/*]*/
  1650. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  1651. r23put((T23*)(oBC21memory),b1,b1);
  1652. }/*]*/
  1653. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  1654. r23put((T23*)(oBC21memory),b1,b1);
  1655. }/*]*/
  1656. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  1657. r23put((T23*)(oBC21memory),b1,b1);
  1658. }/*]*/
  1659. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  1660. r23put((T23*)(oBC21memory),b1,b1);
  1661. }/*]*/
  1662. r21add2(((T0*)ms15_22524));
  1663. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  1664. r23put((T23*)(oBC21memory),b1,b1);
  1665. }/*]*/
  1666. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  1667. r23put((T23*)(oBC21memory),b1,b1);
  1668. }/*]*/
  1669. r21add2(((T0*)ms15_29246));
  1670. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  1671. r23put((T23*)(oBC21memory),b1,b1);
  1672. }/*]*/
  1673. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  1674. r23put((T23*)(oBC21memory),b1,b1);
  1675. }/*]*/
  1676. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  1677. r23put((T23*)(oBC21memory),b1,b1);
  1678. }/*]*/
  1679. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  1680. r23put((T23*)(oBC21memory),b1,b1);
  1681. }/*]*/
  1682. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  1683. r23put((T23*)(oBC21memory),b1,b1);
  1684. }/*]*/
  1685. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  1686. r23put((T23*)(oBC21memory),b1,b1);
  1687. }/*]*/
  1688. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  1689. r23put((T23*)(oBC21memory),b1,b1);
  1690. }/*]*/
  1691. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  1692. r23put((T23*)(oBC21memory),b1,b1);
  1693. }/*]*/
  1694. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  1695. r23put((T23*)(oBC21memory),b1,b1);
  1696. }/*]*/
  1697. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  1698. r23put((T23*)(oBC21memory),b1,b1);
  1699. }/*]*/
  1700. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  1701. r23put((T23*)(oBC21memory),b1,b1);
  1702. }/*]*/
  1703. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  1704. r23put((T23*)(oBC21memory),b1,b1);
  1705. }/*]*/
  1706. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  1707. r23put((T23*)(oBC21memory),b1,b1);
  1708. }/*]*/
  1709. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  1710. r23put((T23*)(oBC21memory),b1,b1);
  1711. }/*]*/
  1712. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  1713. r23put((T23*)(oBC21memory),b1,b1);
  1714. }/*]*/
  1715. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  1716. r23put((T23*)(oBC21memory),b1,b1);
  1717. }/*]*/
  1718. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  1719. r23put((T23*)(oBC21memory),b1,b1);
  1720. }/*]*/
  1721. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  1722. r23put((T23*)(oBC21memory),b1,b1);
  1723. }/*]*/
  1724. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  1725. r23put((T23*)(oBC21memory),b1,b1);
  1726. }/*]*/
  1727. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  1728. r23put((T23*)(oBC21memory),b1,b1);
  1729. }/*]*/
  1730. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  1731. r23put((T23*)(oBC21memory),b1,b1);
  1732. }/*]*/
  1733. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  1734. r23put((T23*)(oBC21memory),b1,b1);
  1735. }/*]*/
  1736. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  1737. r23put((T23*)(oBC21memory),b1,b1);
  1738. }/*]*/
  1739. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  1740. r23put((T23*)(oBC21memory),b1,b1);
  1741. }/*]*/
  1742. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  1743. r23put((T23*)(oBC21memory),b1,b1);
  1744. }/*]*/
  1745. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  1746. r23put((T23*)(oBC21memory),b1,b1);
  1747. }/*]*/
  1748. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  1749. r23put((T23*)(oBC21memory),b1,b1);
  1750. }/*]*/
  1751. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  1752. r23put((T23*)(oBC21memory),b1,b1);
  1753. }/*]*/
  1754. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  1755. r23put((T23*)(oBC21memory),b1,b1);
  1756. }/*]*/
  1757. r21add2(((T0*)ms15_22596));
  1758. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  1759. r23put((T23*)(oBC21memory),b1,b1);
  1760. }/*]*/
  1761. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  1762. r23put((T23*)(oBC21memory),b1,b1);
  1763. }/*]*/
  1764. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  1765. r23put((T23*)(oBC21memory),b1,b1);
  1766. }/*]*/
  1767. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  1768. r23put((T23*)(oBC21memory),b1,b1);
  1769. }/*]*/
  1770. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  1771. r23put((T23*)(oBC21memory),b1,b1);
  1772. }/*]*/
  1773. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  1774. r23put((T23*)(oBC21memory),b1,b1);
  1775. }/*]*/
  1776. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  1777. r23put((T23*)(oBC21memory),b1,b1);
  1778. }/*]*/
  1779. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  1780. r23put((T23*)(oBC21memory),b1,b1);
  1781. }/*]*/
  1782. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  1783. r23put((T23*)(oBC21memory),b1,b1);
  1784. }/*]*/
  1785. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  1786. r23put((T23*)(oBC21memory),b1,b1);
  1787. }/*]*/
  1788. r21add2(((T0*)ms15_60016));
  1789. r21add2(((T0*)ms15_26880));
  1790. r21add2(((T0*)ms15_33240));
  1791. r21add2(((T0*)ms15_21624));
  1792. r21add2(((T0*)ms15_60060));
  1793. r21add2(((T0*)ms15_26908));
  1794. r21add2(((T0*)ms15_33270));
  1795. r21add2(((T0*)ms15_21648));
  1796. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  1797. r23put((T23*)(oBC21memory),b1,b1);
  1798. }/*]*/
  1799. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  1800. r23put((T23*)(oBC21memory),b1,b1);
  1801. }/*]*/
  1802. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  1803. r23put((T23*)(oBC21memory),b1,b1);
  1804. }/*]*/
  1805. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  1806. r23put((T23*)(oBC21memory),b1,b1);
  1807. }/*]*/
  1808. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  1809. r23put((T23*)(oBC21memory),b1,b1);
  1810. }/*]*/
  1811. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  1812. r23put((T23*)(oBC21memory),b1,b1);
  1813. }/*]*/
  1814. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  1815. r23put((T23*)(oBC21memory),b1,b1);
  1816. }/*]*/
  1817. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  1818. r23put((T23*)(oBC21memory),b1,b1);
  1819. }/*]*/
  1820. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  1821. r23put((T23*)(oBC21memory),b1,b1);
  1822. }/*]*/
  1823. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  1824. r23put((T23*)(oBC21memory),b1,b1);
  1825. }/*]*/
  1826. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  1827. r23put((T23*)(oBC21memory),b1,b1);
  1828. }/*]*/
  1829. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  1830. r23put((T23*)(oBC21memory),b1,b1);
  1831. }/*]*/
  1832. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  1833. r23put((T23*)(oBC21memory),b1,b1);
  1834. }/*]*/
  1835. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  1836. r23put((T23*)(oBC21memory),b1,b1);
  1837. }/*]*/
  1838. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  1839. r23put((T23*)(oBC21memory),b1,b1);
  1840. }/*]*/
  1841. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  1842. r23put((T23*)(oBC21memory),b1,b1);
  1843. }/*]*/
  1844. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  1845. r23put((T23*)(oBC21memory),b1,b1);
  1846. }/*]*/
  1847. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  1848. r23put((T23*)(oBC21memory),b1,b1);
  1849. }/*]*/
  1850. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  1851. r23put((T23*)(oBC21memory),b1,b1);
  1852. }/*]*/
  1853. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  1854. r23put((T23*)(oBC21memory),b1,b1);
  1855. }/*]*/
  1856. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  1857. r23put((T23*)(oBC21memory),b1,b1);
  1858. }/*]*/
  1859. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  1860. r23put((T23*)(oBC21memory),b1,b1);
  1861. }/*]*/
  1862. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  1863. r23put((T23*)(oBC21memory),b1,b1);
  1864. }/*]*/
  1865. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  1866. r23put((T23*)(oBC21memory),b1,b1);
  1867. }/*]*/
  1868. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  1869. r23put((T23*)(oBC21memory),b1,b1);
  1870. }/*]*/
  1871. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  1872. r23put((T23*)(oBC21memory),b1,b1);
  1873. }/*]*/
  1874. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  1875. r23put((T23*)(oBC21memory),b1,b1);
  1876. }/*]*/
  1877. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  1878. r23put((T23*)(oBC21memory),b1,b1);
  1879. }/*]*/
  1880. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  1881. r23put((T23*)(oBC21memory),b1,b1);
  1882. }/*]*/
  1883. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  1884. r23put((T23*)(oBC21memory),b1,b1);
  1885. }/*]*/
  1886. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  1887. r23put((T23*)(oBC21memory),b1,b1);
  1888. }/*]*/
  1889. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  1890. r23put((T23*)(oBC21memory),b1,b1);
  1891. }/*]*/
  1892. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  1893. r23put((T23*)(oBC21memory),b1,b1);
  1894. }/*]*/
  1895. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  1896. r23put((T23*)(oBC21memory),b1,b1);
  1897. }/*]*/
  1898. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  1899. r23put((T23*)(oBC21memory),b1,b1);
  1900. }/*]*/
  1901. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  1902. r23put((T23*)(oBC21memory),b1,b1);
  1903. }/*]*/
  1904. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  1905. r23put((T23*)(oBC21memory),b1,b1);
  1906. }/*]*/
  1907. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  1908. r23put((T23*)(oBC21memory),b1,b1);
  1909. }/*]*/
  1910. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  1911. r23put((T23*)(oBC21memory),b1,b1);
  1912. }/*]*/
  1913. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  1914. r23put((T23*)(oBC21memory),b1,b1);
  1915. }/*]*/
  1916. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  1917. r23put((T23*)(oBC21memory),b1,b1);
  1918. }/*]*/
  1919. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  1920. r23put((T23*)(oBC21memory),b1,b1);
  1921. }/*]*/
  1922. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  1923. r23put((T23*)(oBC21memory),b1,b1);
  1924. }/*]*/
  1925. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  1926. r23put((T23*)(oBC21memory),b1,b1);
  1927. }/*]*/
  1928. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  1929. r23put((T23*)(oBC21memory),b1,b1);
  1930. }/*]*/
  1931. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  1932. r23put((T23*)(oBC21memory),b1,b1);
  1933. }/*]*/
  1934. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  1935. r23put((T23*)(oBC21memory),b1,b1);
  1936. }/*]*/
  1937. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  1938. r23put((T23*)(oBC21memory),b1,b1);
  1939. }/*]*/
  1940. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  1941. r23put((T23*)(oBC21memory),b1,b1);
  1942. }/*]*/
  1943. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  1944. r23put((T23*)(oBC21memory),b1,b1);
  1945. }/*]*/
  1946. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  1947. r23put((T23*)(oBC21memory),b1,b1);
  1948. }/*]*/
  1949. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  1950. r23put((T23*)(oBC21memory),b1,b1);
  1951. }/*]*/
  1952. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  1953. r23put((T23*)(oBC21memory),b1,b1);
  1954. }/*]*/
  1955. /*]*/
  1956. }
  1957. }}
  1958. return oBC13string_aliaser;
  1959. }
  1960.  
  1961.  
  1962. void r254c_header_pass4(T254* C){
  1963. X52c_header_pass4((/*RF2*/(C)->_run_type/*20*/));
  1964. }
  1965.  
  1966.  
  1967. void r254with(T254* C,T0* a1,T0* a2){
  1968. (/*SFN*/C->_start_position)=(/*RF2*/(((T254*)a1))->_start_position/*4*/);
  1969. (/*SFN*/C->_like_what)=(/*RF2*/(((T254*)a1))->_like_what/*12*/);
  1970. (/*SFN*/C->_written_mark)=(/*RF2*/(((T254*)a1))->_written_mark/*16*/);
  1971. (/*SFN*/C->_run_type)=a2;
  1972. }
  1973.  
  1974.  
  1975. T6 r254is_double(T254* C){
  1976. T6 R=0;
  1977. R=X52is_double((/*RF2*/(C)->_run_type/*20*/));
  1978. return R;
  1979. }
  1980.  
  1981.  
  1982. T6 r254is_none(T254* C){
  1983. T6 R=0;
  1984. R=X52is_none((/*RF2*/(C)->_run_type/*20*/));
  1985. return R;
  1986. }
  1987.  
  1988.  
  1989. T0* r254to_runnable(T254* C,T0* a1){
  1990. T0* R=NULL;
  1991. T0* _rt=NULL;
  1992. T0* _rc=NULL;
  1993. r254anchor_cycle_start(C);
  1994. _rc=X52run_class(a1);
  1995. _rt=r50get_result_type(((T50*)_rc),(/*RF2*/(C)->_like_what/*12*/));
  1996. /*[IF*/
  1997. if(((/*RF2*/(C)->_run_type/*20*/))==((void*)(NULL))){
  1998. (/*SFN*/C->_run_type)=_rt;
  1999. R=((T0*)(C));
  2000. }
  2001.  else if(((/*RF2*/(C)->_run_type/*20*/))==((void*)(_rt))){
  2002. R=((T0*)(C));
  2003. }
  2004. else{
  2005. {T254*n=((T254*)malloc(sizeof(*n))/*24*/);
  2006. *n=M254;
  2007. r254with(n,(T0*)C,_rt);
  2008. R=((T0*)n);
  2009. }
  2010. }
  2011. /*FI]*/
  2012. r254anchor_cycle_end(C);
  2013. return R;
  2014. }
  2015.  
  2016.  
  2017. T6 r254is_pointer(T254* C){
  2018. T6 R=0;
  2019. R=X52is_pointer((/*RF2*/(C)->_run_type/*20*/));
  2020. return R;
  2021. }
  2022.  
  2023.  
  2024. void r254id_extra_information(T254* C,T0* a1){
  2025. r48put_string(((T48*)a1),((T0*)ms52_9724));
  2026. /*[IF*/
  2027. if(r254is_reference(C)){
  2028. r48put_string(((T48*)a1),((T0*)ms52_1476));
  2029. }
  2030. else{
  2031. r48put_string(((T48*)a1),((T0*)ms52_759));
  2032. }
  2033. /*FI]*/
  2034. }
  2035.  
  2036.  
  2037. void r254gc_define1(T254* C){
  2038. X52gc_define1((/*RF2*/(C)->_run_type/*20*/));
  2039. }
  2040.  
  2041.  
  2042. void r254gc_mark_in(T254* C,T0* a1){
  2043. r7append(((T7*)a1),((T0*)ms14_8764));
  2044. r2append_in(r254id(C),a1);
  2045. }
  2046.  
  2047.  
  2048. T0* r254static_base_class_name(T254* C){
  2049. T0* R=NULL;
  2050. T0* _rt=NULL;
  2051. T0* _e_feature=NULL;
  2052. T0* _bc=NULL;
  2053. _bc=(/*RF2*/((/*RF2*/(C)->_start_position/*4*/))._base_class/*0*/);
  2054. _e_feature=r51e_feature(((T51*)_bc),/*(IRF4.3like_feature*/(/*RF2*/(C)->_like_what/*12*/)/*)*/);
  2055. /*[IF*/
  2056. if((_e_feature)!=((void*)(NULL))){
  2057. _rt=X90result_type(_e_feature);
  2058. /*[IF*/
  2059. if((_rt)!=((void*)(NULL))){
  2060. R=X52static_base_class_name(_rt);
  2061. }
  2062. /*FI]*/
  2063. }
  2064. else{
  2065. /*[IRF3.6append*/{T0* b1=((T0*)ms14_9878);
  2066. r7append((T7*)(oBC66explanation),b1);
  2067. }/*]*/
  2068. r66add_position((/*RF2*/(C)->_start_position/*4*/));
  2069. r66print_as_fatal_error((T66*)(oBC13eh));
  2070. }
  2071. /*FI]*/
  2072. return R;
  2073. }
  2074.  
  2075.  
  2076. void r254c_type_for_external_in(T254* C,T0* a1){
  2077. /*[IF*/
  2078. if(r254is_reference(C)){
  2079. r7append(((T7*)a1),((T0*)ms14_1736a));
  2080. r7extend(((T7*)a1),((T3)'\52'));
  2081. }
  2082. else{
  2083. r254c_type_for_result_in(C,a1);
  2084. }
  2085. /*FI]*/
  2086. }
  2087.  
  2088.  
  2089. void r254c_type_for_argument_in(T254* C,T0* a1){
  2090. X52c_type_for_argument_in((/*RF2*/(C)->_run_type/*20*/),a1);
  2091. }
  2092.  
  2093.  
  2094. T0* r254run_time_mark(T254* C){
  2095. T0* R=NULL;
  2096. /*[IF*/
  2097. if(((/*RF2*/(C)->_run_type/*20*/))!=((void*)(NULL))){
  2098. R=X52run_time_mark((/*RF2*/(C)->_run_type/*20*/));
  2099. }
  2100. /*FI]*/
  2101. return R;
  2102. }
  2103.  
  2104.  
  2105. T0* r254run_class(T254* C){
  2106. T0* R=NULL;
  2107. R=r49run_class((/*RF2*/(C)->_run_type/*20*/));
  2108. return R;
  2109. }
  2110.  
  2111.  
  2112. T6 r254is_dummy_expanded(T254* C){
  2113. T6 R=0;
  2114. R=X52is_dummy_expanded((/*RF2*/(C)->_run_type/*20*/));
  2115. return R;
  2116. }
  2117.  
  2118.  
  2119. void r254fatal_error(T0* a1){
  2120. /*[IRF3.6append*/{T0* b1=a1;
  2121. r7append((T7*)(oBC66explanation),b1);
  2122. }/*]*/
  2123. r66print_as_fatal_error((T66*)(oBC13eh));
  2124. }
  2125.  
  2126.  
  2127. T6 r254is_expanded(T254* C){
  2128. T6 R=0;
  2129. R=X52is_expanded((/*RF2*/(C)->_run_type/*20*/));
  2130. return R;
  2131. }
  2132.  
  2133.  
  2134. void r254c_type_for_result_in(T254* C,T0* a1){
  2135. X52c_type_for_result_in((/*RF2*/(C)->_run_type/*20*/),a1);
  2136. }
  2137.  
  2138.  
  2139. void r254c_type_for_target_in(T254* C,T0* a1){
  2140. X52c_type_for_target_in((/*RF2*/(C)->_run_type/*20*/),a1);
  2141. }
  2142.  
  2143.  
  2144. T0* r254expanded_initializer(T254* C){
  2145. T0* R=NULL;
  2146. R=X52expanded_initializer((/*RF2*/(C)->_run_type/*20*/));
  2147. return R;
  2148. }
  2149.  
  2150.  
  2151. T6 r254is_basic_eiffel_expanded(T254* C){
  2152. T6 R=0;
  2153. R=X52is_basic_eiffel_expanded((/*RF2*/(C)->_run_type/*20*/));
  2154. return R;
  2155. }
  2156.  
  2157.  
  2158. void r254demangling_in(T254* C,T0* a1){
  2159. /*[IF*/
  2160. if(r254is_reference(C)){
  2161. r7extend(((T7*)a1),((T3)'R'));
  2162. }
  2163. else{
  2164. r7extend(((T7*)a1),((T3)'E'));
  2165. }
  2166. /*FI]*/
  2167. r7extend(((T7*)a1),((T3)'\40'));
  2168. r7append(((T7*)a1),r254run_time_mark(C));
  2169. }
  2170.  
  2171.  
  2172. void r254c_initialize(T254* C){
  2173. X52c_initialize((/*RF2*/(C)->_run_type/*20*/));
  2174. }
  2175.  
  2176.  
  2177. T6 r254is_character(T254* C){
  2178. T6 R=0;
  2179. R=X52is_character((/*RF2*/(C)->_run_type/*20*/));
  2180. return R;
  2181. }
  2182.  
  2183.  
  2184. T0* r254base_class_name(T254* C){
  2185. T0* R=NULL;
  2186. R=X52base_class_name((/*RF2*/(C)->_run_type/*20*/));
  2187. return R;
  2188. }
  2189. T0*oBC255visited=NULL;
  2190.  
  2191.  
  2192. void r254c_frame_descriptor(T254* C){
  2193. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\45'));
  2194. /*[IF*/
  2195. if(r254is_reference(C)){
  2196. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'R'));
  2197. }
  2198. else{
  2199. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'E'));
  2200. }
  2201. /*FI]*/
  2202. r2append_in(r254id(C),oBC13c_frame_descriptor_format);
  2203. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\45'));
  2204. }
  2205.  
  2206.  
  2207. T6 r254is_bit(T254* C){
  2208. T6 R=0;
  2209. R=X52is_bit((/*RF2*/(C)->_run_type/*20*/));
  2210. return R;
  2211. }
  2212.  
  2213.  
  2214. void r254gc_info_in(T254* C,T0* a1){
  2215. X52gc_info_in((/*RF2*/(C)->_run_type/*20*/),a1);
  2216. }
  2217.  
  2218.  
  2219. void r254gc_define2(T254* C){
  2220. X52gc_define2((/*RF2*/(C)->_run_type/*20*/));
  2221. }
  2222.  
  2223.  
  2224. void r186compile_to_c_old(T186* C){
  2225. X104compile_to_c_old((/*RF2*/(C)->_target/*4*/));
  2226. /*[IF*/
  2227. {/*AT*//*SSPRF3*//*X139compile_to_c_old*/r139compile_to_c_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2228. }
  2229. /*FI]*/
  2230. }
  2231.  
  2232.  
  2233. T0* r186runnable_expression(T0* a1,T0* a2){
  2234. T0* R=NULL;
  2235. R=X104to_runnable(a1,a2);
  2236. /*[IF*/
  2237. if((R)==((void*)(NULL))){
  2238. {T68 se_tmp0;
  2239. r66add_position((*(se_tmp0=X104start_position(a1),&se_tmp0)));
  2240. }
  2241. r186fatal_error(((T0*)ms116_16290));
  2242. }
  2243. /*FI]*/
  2244. return R;
  2245. }
  2246.  
  2247.  
  2248. void r186run_feature_has_result(T186* C){
  2249. /*[IF*/
  2250. if((X334result_type((/*RF2*/(C)->_run_feature/*16*/)))==((void*)(NULL))){
  2251. {T68 se_tmp0;
  2252. r66add_position((*(se_tmp0=X334start_position((/*RF2*/(C)->_run_feature/*16*/)),&se_tmp0)));
  2253. }
  2254. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  2255. r186fatal_error(((T0*)ms115_53215));
  2256. }
  2257. /*FI]*/
  2258. }
  2259.  
  2260.  
  2261. void r186run_feature_match(T186* C,T0* a1){
  2262. r186run_feature_has_result(C);
  2263. X139match_with((/*RF2*/(C)->_arguments/*8*/),(/*RF2*/(C)->_run_feature/*16*/),a1);
  2264. }
  2265.  
  2266.  
  2267. T0* r186add_comment(T186* C,T0* a1){
  2268. T0* R=NULL;
  2269. /*[IF*/
  2270. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  2271. R=((T0*)(C));
  2272. }
  2273. else{
  2274. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  2275. *n=M229;
  2276. r229make(n,(T0*)C,a1);
  2277. R=((T0*)n);
  2278. }
  2279. }
  2280. /*FI]*/
  2281. return R;
  2282. }
  2283.  
  2284.  
  2285. void r186with(T186* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
  2286. (/*SFN*/C->_target)=a1;
  2287. (/*SFN*/C->_feature_name)=a2;
  2288. (/*SFN*/C->_arguments)=a3;
  2289. (/*SFN*/C->_run_feature)=a4;
  2290. r186run_feature_match(C,a5);
  2291. }
  2292.  
  2293.  
  2294. void r186mapping_c_target(T186* C,T0* a1){
  2295. T0* _actual_type=NULL;
  2296. T6 _flag=0;
  2297. _flag=r325call_invariant_start(a1);
  2298. _actual_type=X52run_type(r186result_type(C));
  2299. /*[IF*/
  2300. if(X52is_reference(_actual_type)){
  2301. /*[IF*/
  2302. if(X52is_reference(a1)){
  2303. X52mapping_cast(a1);
  2304. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2305. T3 b1=((T3)'\50');
  2306. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2307. }/*]*/
  2308. /*]*/
  2309. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T186* C1=C;
  2310. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2311. }/*]*/
  2312. /*]*/
  2313. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2314. T3 b1=((T3)'\51');
  2315. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2316. }/*]*/
  2317. /*]*/
  2318. }
  2319. else{
  2320. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T186* C1=C;
  2321. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2322. }/*]*/
  2323. /*]*/
  2324. }
  2325. /*FI]*/
  2326. }
  2327. else{
  2328. /*[IF*/
  2329. if(X52is_reference(a1)){
  2330. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T186* C1=C;
  2331. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2332. }/*]*/
  2333. /*]*/
  2334. }
  2335. else{
  2336. /*[IF*/
  2337. if(X52need_c_struct(a1)){
  2338. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2339. T3 b1=((T3)'\46');
  2340. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2341. }/*]*/
  2342. /*]*/
  2343. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2344. T3 b1=((T3)'\50');
  2345. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2346. }/*]*/
  2347. /*]*/
  2348. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T186* C1=C;
  2349. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2350. }/*]*/
  2351. /*]*/
  2352. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2353. T3 b1=((T3)'\51');
  2354. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2355. }/*]*/
  2356. /*]*/
  2357. }
  2358. else{
  2359. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T186* C1=C;
  2360. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2361. }/*]*/
  2362. /*]*/
  2363. }
  2364. /*FI]*/
  2365. }
  2366. /*FI]*/
  2367. }
  2368. /*FI]*/
  2369. /*[IF*/
  2370. if(_flag){
  2371. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  2372. T3 b1=((T3)'\51');
  2373. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2374. }/*]*/
  2375. /*]*/
  2376. }
  2377. /*FI]*/
  2378. }
  2379.  
  2380.  
  2381. void r186afd_check(T186* C){
  2382. T0* _running=NULL;
  2383. T0* _rc=NULL;
  2384. /*[IF*/
  2385. if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){
  2386. _rc=X52run_class(X104result_type((/*RF2*/(C)->_target/*4*/)));
  2387. _running=(/*RF2*/(((T50*)_rc))->_running/*9*/);
  2388. /*[IF*/
  2389. if((_running)==((void*)(NULL))){
  2390. }
  2391.  else if((r53count(((T53*)_running)))>(1)){
  2392. r351update((/*RF2*/(C)->_target/*4*/),(/*RF2*/(C)->_run_feature/*16*/));
  2393. }
  2394. /*FI]*/
  2395. }
  2396. /*FI]*/
  2397. X104afd_check((/*RF2*/(C)->_target/*4*/));
  2398. /*[IF*/
  2399. {/*AT*//*SSPRF3*//*X139afd_check*/r139afd_check((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2400. }
  2401. /*FI]*/
  2402. }
  2403.  
  2404.  
  2405. void r186c_declare_for_old(T186* C){
  2406. X104c_declare_for_old((/*RF2*/(C)->_target/*4*/));
  2407. /*[IF*/
  2408. {/*AT*//*SSPRF3*//*X139c_declare_for_old*/r139c_declare_for_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2409. }
  2410. /*FI]*/
  2411. }
  2412.  
  2413.  
  2414. void r186collect_c_tmp(T186* C){
  2415. /*[IF*/
  2416. if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){
  2417. X334collect_c_tmp((/*RF2*/(C)->_run_feature/*16*/));
  2418. }
  2419. /*FI]*/
  2420. X104collect_c_tmp((/*RF2*/(C)->_target/*4*/));
  2421. /*[IF*/
  2422. if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){
  2423. /*SSPRF3*//*X139collect_c_tmp*/r139collect_c_tmp((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2424. }
  2425. /*FI]*/
  2426. }
  2427.  
  2428.  
  2429. T0* r186operator(void){
  2430. T0* R=NULL;
  2431. R=((T0*)ms15_94);
  2432. return R;
  2433. }
  2434.  
  2435.  
  2436. T6 r186use_current(T186* C){
  2437. T6 R=0;
  2438. /*[IF*/
  2439. {/*AT*/R=/*SSFRF4*//*X139use_current*/r139use_current((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2440. }
  2441. /*FI]*/
  2442. /*[IF*/
  2443. if(R){
  2444. }
  2445.  else if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  2446. R=X334use_current((/*RF2*/(C)->_run_feature/*16*/));
  2447. }
  2448. else{
  2449. R=X104use_current((/*RF2*/(C)->_target/*4*/));
  2450. }
  2451. /*FI]*/
  2452. return R;
  2453. }
  2454.  
  2455.  
  2456. T0* r186runnable_args(T0* a1,T0* a2){
  2457. T0* R=NULL;
  2458. R=X139to_runnable(a1,a2);
  2459. /*[IF*/
  2460. if((R)==((void*)(NULL))){
  2461. {T68 se_tmp0;
  2462. r66add_position((*(se_tmp0=X139start_position(a1),&se_tmp0)));
  2463. }
  2464. r186fatal_error(((T0*)ms14_12870));
  2465. }
  2466. /*FI]*/
  2467. return R;
  2468. }
  2469.  
  2470.  
  2471. T0* r186to_runnable(T186* C,T0* a1){
  2472. T0* R=NULL;
  2473. T0* _target_type=NULL;
  2474. T0* _argument_type=NULL;
  2475. T0* _rf=NULL;
  2476. T0* _a=NULL;
  2477. T0* _t=NULL;
  2478. _t=r186runnable_expression((/*RF2*/(C)->_target/*4*/),a1);
  2479. _a=r186runnable_args((/*RF2*/(C)->_arguments/*8*/),a1);
  2480. _target_type=X104result_type(_t);
  2481. _argument_type=X104result_type(r186arg1(C));
  2482. /*[IF*/
  2483. if(X52is_real(_argument_type)){
  2484. /*[IF*/
  2485. if(X52is_integer(_target_type)){
  2486. _t=r341implicit_cast((T341*)(oBC13conversion_handler),_t,_argument_type);
  2487. }
  2488. /*FI]*/
  2489. }
  2490.  else if(X52is_double(_argument_type)){
  2491. /*[IF*/
  2492. if((X52is_integer(_target_type))||(X52is_real(_target_type))){
  2493. _t=r341implicit_cast((T341*)(oBC13conversion_handler),_t,_argument_type);
  2494. }
  2495. /*FI]*/
  2496. }
  2497. /*FI]*/
  2498. _rf=r186run_feature_for(C,_t,a1);
  2499. /*[IF*/
  2500. if(((/*RF2*/(C)->_run_feature/*16*/))==((void*)(NULL))){
  2501. (/*SFN*/C->_target)=_t;
  2502. (/*SFN*/C->_arguments)=_a;
  2503. (/*SFN*/C->_run_feature)=_rf;
  2504. r186run_feature_match(C,a1);
  2505. R=((T0*)(C));
  2506. }
  2507.  else if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){
  2508. R=((T0*)(C));
  2509. }
  2510. else{
  2511. {T186*n=((T186*)malloc(sizeof(*n))/*24*/);
  2512. *n=M186;
  2513. r186with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a,_rf,a1);
  2514. R=((T0*)n);
  2515. }
  2516. }
  2517. /*FI]*/
  2518. return R;
  2519. }
  2520.  
  2521.  
  2522. T2 r186to_integer(T186* C){
  2523. T2 R=0;
  2524. r186error(/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/,((T0*)ms14_45441));
  2525. return R;
  2526. }
  2527.  
  2528.  
  2529. T6 r186is_static(T186* C){
  2530. T6 R=0;
  2531. /*[IF*/
  2532. if(X52is_integer(r186result_type(C))){
  2533. /*[IF*/
  2534. if((X104is_static((/*RF2*/(C)->_target/*4*/)))&&(X104is_static(r186arg1(C)))){
  2535. R=1;
  2536. (/*SFN*/C->_static_value_mem)=r2_px_94(X104static_value((/*RF2*/(C)->_target/*4*/)),X104static_value(r186arg1(C)));
  2537. }
  2538. /*FI]*/
  2539. }
  2540. /*FI]*/
  2541. return R;
  2542. }
  2543.  
  2544.  
  2545. void r186finalize(T186* C){
  2546. T0* _rf=NULL;
  2547. T0* _rc=NULL;
  2548. _rf=(/*RF2*/(C)->_run_feature/*16*/);
  2549. _rc=X52run_class(/*SSWARF2*//*X334current_type*/(/*RF2*/(((T368*)_rf))->_current_type/*8*/));
  2550. (/*SFN*/C->_run_feature)=r50dynamic((T50*)(/*(IRF4.6first*/((/*RF2*/((T53*)((/*RF2*/(((T50*)_rc))->_running/*9*/)))->_storage/*0*/))[0]/*)*/),_rf);
  2551. }
  2552.  
  2553.  
  2554. void r186error(T68 a1,T0* a2){
  2555. r66add_position(a1);
  2556. /*[IRF3.6append*/{T0* b1=a2;
  2557. r7append((T7*)(oBC66explanation),b1);
  2558. }/*]*/
  2559. r66print_as_error((T66*)(oBC13eh));
  2560. }
  2561.  
  2562.  
  2563. T0* r186result_type(T186* C){
  2564. T0* R=NULL;
  2565. T0* _tla=NULL;
  2566. R=X334result_type((/*RF2*/(C)->_run_feature/*16*/));
  2567. /*[IF*/
  2568. if(X52is_like_current(R)){
  2569. R=/*SSWARF2*//*X334current_type*/(/*RF2*/((T368*)((/*RF2*/(C)->_run_feature/*16*/)))->_current_type/*8*/);
  2570. }
  2571. else{
  2572. _tla=R;
  2573. if(NULL!=(_tla)){
  2574. switch(((T0*)_tla)->id){
  2575. case 257:
  2576. break;
  2577. default:
  2578. _tla=NULL;
  2579. }
  2580. }/*[IF*/
  2581. if((_tla)!=((void*)(NULL))){
  2582. R=X52run_type(X104result_type(r186arg1(C)));
  2583. }
  2584. /*FI]*/
  2585. }
  2586. /*FI]*/
  2587. return R;
  2588. }
  2589.  
  2590.  
  2591. T0* r186arg1(T186* C){
  2592. T0* R=NULL;
  2593. R=/*SSFRF4*//*X139first*//*(IRF4.3first*/(/*RF2*/((T139*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/;
  2594. return R;
  2595. }
  2596.  
  2597.  
  2598. T6 r186call_proc_call_stupid_switch(T186* C,T0* a1){
  2599. T6 R=0;
  2600. /*[IF*/
  2601. if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){
  2602. R=1;
  2603. }
  2604. else{
  2605. R=/*SSFRF4*//*X139stupid_switch*/r139stupid_switch((T139*)((/*RF2*/(C)->_arguments/*8*/)),a1);
  2606. }
  2607. /*FI]*/
  2608. /*[IF*/
  2609. if(R){
  2610. /*[IF*/
  2611. if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  2612. /*[IF*/
  2613. if(r49same_base_feature((/*RF2*/(C)->_run_feature/*16*/),a1)){
  2614. R=(X334stupid_switch((/*RF2*/(C)->_run_feature/*16*/),a1))!=((void*)(NULL));
  2615. }
  2616. else{
  2617. R=0;
  2618. }
  2619. /*FI]*/
  2620. }
  2621. else{
  2622. R=X104stupid_switch((/*RF2*/(C)->_target/*4*/),a1);
  2623. }
  2624. /*FI]*/
  2625. }
  2626. /*FI]*/
  2627. return R;
  2628. }
  2629.  
  2630.  
  2631. T0* r186run_feature_for(T186* C,T0* a1,T0* a2){
  2632. T0* R=NULL;
  2633. T0* _bc=NULL;
  2634. T0* _rt=NULL;
  2635. T0* _rc=NULL;
  2636. _rt=X104result_type(a1);
  2637. /*[IF*/
  2638. if((_rt)!=((void*)(NULL))){
  2639. _rc=X52run_class(_rt);
  2640. /*[IF*/
  2641. if((_rc)!=((void*)(NULL))){
  2642. _bc=r50base_class(((T50*)_rc));
  2643. R=r51run_feature_for(((T51*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*12*/),a2);
  2644. }
  2645. /*FI]*/
  2646. }
  2647. /*FI]*/
  2648. /*[IF*/
  2649. if((R)==((void*)(NULL))){
  2650. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  2651. /*[IRF3.6append*/{T0* b1=((T0*)ms116_39025);
  2652. r7append((T7*)(oBC66explanation),b1);
  2653. }/*]*/
  2654. r66print_as_fatal_error((T66*)(oBC13eh));
  2655. }
  2656. /*FI]*/
  2657. return R;
  2658. }
  2659.  
  2660.  
  2661. T0* r186static_result_base_class(T186* C){
  2662. T0* R=NULL;
  2663. T0* _cn=NULL;
  2664. T0* _rt=NULL;
  2665. T0* _e_feature=NULL;
  2666. T0* _bc=NULL;
  2667. _bc=X104static_result_base_class((/*RF2*/(C)->_target/*4*/));
  2668. /*[IF*/
  2669. if((_bc)!=((void*)(NULL))){
  2670. _e_feature=r51e_feature(((T51*)_bc),(/*RF2*/(C)->_feature_name/*12*/));
  2671. /*[IF*/
  2672. if((_e_feature)!=((void*)(NULL))){
  2673. _rt=X90result_type(_e_feature);
  2674. /*[IF*/
  2675. if((_rt)!=((void*)(NULL))){
  2676. _cn=X52static_base_class_name(_rt);
  2677. /*[IF*/
  2678. if((_cn)!=((void*)(NULL))){
  2679. R=r61base_class(((T61*)_cn));
  2680. }
  2681. /*FI]*/
  2682. }
  2683. /*FI]*/
  2684. }
  2685. /*FI]*/
  2686. }
  2687. /*FI]*/
  2688. return R;
  2689. }
  2690.  
  2691.  
  2692. void r186make(T186* C,T0* a1,T68 a2,T0* a3){
  2693. (/*SFN*/C->_target)=a1;
  2694. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2695. *n=M129;
  2696. r129make(n,r186operator(),a2);
  2697. (/*SFN*/C->_feature_name)=((T0*)n);
  2698. }
  2699. {T139*n=((T139*)malloc(sizeof(*n))/*16*/);
  2700. *n=M139;
  2701. /*[IRF3.3make_1*/((((T139*)(n)))->_first_one)=(a3);
  2702. /*]*/
  2703. (/*SFN*/C->_arguments)=((T0*)n);
  2704. }
  2705. }
  2706.  
  2707.  
  2708. void r186fatal_error(T0* a1){
  2709. /*[IRF3.6append*/{T0* b1=a1;
  2710. r7append((T7*)(oBC66explanation),b1);
  2711. }/*]*/
  2712. r66print_as_fatal_error((T66*)(oBC13eh));
  2713. }
  2714.  
  2715.  
  2716. void r186assertion_check(T186* C,T3 a1){
  2717. /*[IF*/
  2718. if((a1)==(((T3)'R'))){
  2719. X334vape_check_from((/*RF2*/(C)->_run_feature/*16*/),/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/);
  2720. }
  2721. /*FI]*/
  2722. X104assertion_check((/*RF2*/(C)->_target/*4*/),a1);
  2723. X104assertion_check(r186arg1(C),a1);
  2724. }
  2725.  
  2726.  
  2727. T6 r186stupid_switch(T186* C,T0* a1){
  2728. T6 R=0;
  2729. R=r186call_proc_call_stupid_switch(C,a1);
  2730. /*[IF*/
  2731. if(R){
  2732. R=!(X52is_native_array(r186result_type(C)));
  2733. }
  2734. /*FI]*/
  2735. return R;
  2736. }
  2737.  
  2738.  
  2739. void r333c_plus_plus_prototype(T333* C,T0* a1){
  2740. T0* _comment=NULL;
  2741. _comment=((T0*)ms334_23000);
  2742. r7copy(((T7*)_comment),((T0*)ms14_178a));
  2743. r7append(((T7*)_comment),((T0*)ms334_13056));
  2744. r7append(((T7*)_comment),(/*RF2*/((T61*)((/*RF2*/((T51*)(/*SSWARF2*//*X289base_class*/(/*RF2*/(((T291*)a1))->_base_class/*4*/)))->_name/*18*/)))->_to_string/*8*/));
  2745. r7extend(((T7*)_comment),((T3)'\56'));
  2746. r7append(((T7*)_comment),X82to_string((/*RF2*/(C)->_name/*12*/)));
  2747. r7append(((T7*)_comment),((T0*)ms14_178));
  2748. r7extend(((T7*)_comment),((T3)'\n'));
  2749. r333external_prototype_for(C,_comment,a1);
  2750. r325put_c_heading((T325*)(oBC13cpp),oBC334c_code);
  2751. }
  2752.  
  2753.  
  2754. T0* r333type_string(void){
  2755. if(fBC13type_string==0){fBC13type_string=1;{
  2756. T68 _unknown_position={NULL,0};
  2757. {T271*n=((T271*)malloc(sizeof(*n))/*8*/);
  2758. *n=M271;
  2759. oBC13type_string=((T0*)n);
  2760. r271make(n,_unknown_position);
  2761. }
  2762. }}
  2763. return oBC13type_string;
  2764. }
  2765.  
  2766.  
  2767. T2 r333id(T333* C){
  2768. T2 R=0;
  2769. R=X52id((/*RF2*/(C)->_current_type/*8*/));
  2770. return R;
  2771. }
  2772.  
  2773.  
  2774. void r333external_prototype(T333* C,T0* a1){
  2775. r333external_prototype_for(C,((T0*)ms334_11880a),a1);
  2776. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  2777. r325swap_on_h((T325*)(oBC13cpp));
  2778. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  2779. /*]*/
  2780. /*[IRF3.3swap_on_c*/((((T325*)((T325*)(oBC13cpp))))->_current_out)=(oBC325out_c);
  2781. /*]*/
  2782. }
  2783.  
  2784.  
  2785. void r333fall_down(T333* C){
  2786. T0* _rf=NULL;
  2787. T0* _sub_name=NULL;
  2788. T0* _sub_bc=NULL;
  2789. T0* _current_bc=NULL;
  2790. T0* _sub_rc=NULL;
  2791. T0* _current_rc=NULL;
  2792. T2 _i=0;
  2793. T0* _running=NULL;
  2794. _current_rc=X52run_class((/*RF2*/(C)->_current_type/*8*/));
  2795. _running=(/*RF2*/(((T50*)_current_rc))->_running/*9*/);
  2796. /*[IF*/
  2797. if((_running)!=((void*)(NULL))){
  2798. _current_bc=X52base_class((/*RF2*/(C)->_current_type/*8*/));
  2799. _i=(/*RF2*/(((T53*)_running))->_lower/*12*/);
  2800. while (!((_i)>((/*RF2*/(((T53*)_running))->_upper/*8*/))))
  2801. {
  2802. _sub_rc=r53item(((T53*)_running),_i);
  2803. /*[IF*/
  2804. if((_sub_rc)!=((void*)(_current_rc))){
  2805. _sub_bc=X52base_class((/*RF2*/(((T50*)_sub_rc))->_current_type/*0*/));
  2806. _sub_name=r51new_name_of(((T51*)_sub_bc),_current_bc,(/*RF2*/(C)->_name/*12*/));
  2807. _rf=r50get_feature(((T50*)_sub_rc),_sub_name);
  2808. }
  2809. /*FI]*/
  2810. _i=(_i)+(1);
  2811. }
  2812. }
  2813. /*FI]*/
  2814. }
  2815.  
  2816.  
  2817. void r333compute_use_current(T333* C){
  2818. /*[IF*/
  2819. if(r291use_current((T291*)((/*RF2*/(C)->_base_feature/*24*/)))){
  2820. (/*SFN*/C->_use_current_state)=22;
  2821. }
  2822. else{
  2823. r333std_compute_use_current(C);
  2824. }
  2825. /*FI]*/
  2826. }
  2827.  
  2828.  
  2829. void r333c_define(T333* C){
  2830. T0* _bcn=NULL;
  2831. T0* _native=NULL;
  2832. T0* _bf=NULL;
  2833. _bf=(/*RF2*/(C)->_base_feature/*24*/);
  2834. _native=(/*RF2*/(((T291*)_bf))->_native/*40*/);
  2835. _bcn=(/*RF2*/((T61*)((/*RF2*/((T51*)((/*RF2*/(((T291*)_bf))->_base_class/*4*/)))->_name/*18*/)))->_to_string/*8*/);
  2836. X288c_define_function(_native,(T0*)C,_bcn,X82to_string(/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/(((T291*)_bf))->_names/*8*/))))->_first/*0*/)/*)*/));
  2837. }
  2838.  
  2839.  
  2840. T0* r333clients(T333* C){
  2841. T0* R=NULL;
  2842. T0* _bfbc=NULL;
  2843. T0* _bc=NULL;
  2844. /*[IF*/
  2845. if(((/*RF2*/(C)->_clients_memory/*4*/))==((void*)(NULL))){
  2846. _bc=X52base_class((/*RF2*/(C)->_current_type/*8*/));
  2847. _bfbc=(/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_base_class/*4*/);
  2848. /*[IF*/
  2849. if((_bc)==((void*)(_bfbc))){
  2850. R=(/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_clients/*16*/);
  2851. }
  2852. else{
  2853. R=r51clients_for(((T51*)_bc),(/*RF2*/(C)->_name/*12*/));
  2854. }
  2855. /*FI]*/
  2856. (/*SFN*/C->_clients_memory)=R;
  2857. }
  2858. else{
  2859. R=(/*RF2*/(C)->_clients_memory/*4*/);
  2860. }
  2861. /*FI]*/
  2862. return R;
  2863. }
  2864.  
  2865.  
  2866. void r333put_c_name_tag(T333* C){
  2867. T0* _fn=NULL;
  2868. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2869. T3 b1=((T3)'\42');
  2870. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2871. }/*]*/
  2872. /*]*/
  2873. _fn=/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_names/*8*/))))->_first/*0*/)/*)*/;
  2874. /*[IF*/
  2875. if((X82to_key(_fn))!=((void*)(X82to_key((/*RF2*/(C)->_name/*12*/))))){
  2876. X82put_cpp_tag((/*RF2*/(C)->_name/*12*/));
  2877. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string((/*RF2*/(C)->_name/*12*/)));
  2878. /*]*/
  2879. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2880. T3 b1=((T3)'\40');
  2881. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2882. }/*]*/
  2883. /*]*/
  2884. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2885. T3 b1=((T3)'\50');
  2886. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2887. }/*]*/
  2888. /*]*/
  2889. }
  2890. /*FI]*/
  2891. X82put_cpp_tag(_fn);
  2892. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string(_fn));
  2893. /*]*/
  2894. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_1108));
  2895. /*]*/
  2896. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/((T61*)(/*(IRF4.6base_class_name*/(/*RF2*/(((T51*)((/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_base_class/*4*/))))->_name/*18*/)/*)*/))->_to_string/*8*/));
  2897. /*]*/
  2898. /*[IF*/
  2899. if((X82to_key(_fn))!=((void*)(X82to_key((/*RF2*/(C)->_name/*12*/))))){
  2900. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2901. T3 b1=((T3)'\51');
  2902. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2903. }/*]*/
  2904. /*]*/
  2905. }
  2906. /*FI]*/
  2907. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2908. T3 b1=((T3)'\42');
  2909. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2910. }/*]*/
  2911. /*]*/
  2912. }
  2913.  
  2914.  
  2915. void r333std_compute_use_current(T333* C){
  2916. /*[IF*/
  2917. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  2918. /*[IF*/
  2919. if(((/*RF2*/(C)->_require_assertion/*40*/))!=((void*)(NULL))){
  2920. /*[IF*/
  2921. if(r376use_current((T376*)((/*RF2*/(C)->_require_assertion/*40*/)))){
  2922. (/*SFN*/C->_use_current_state)=22;
  2923. }
  2924. /*FI]*/
  2925. }
  2926. /*FI]*/
  2927. }
  2928. /*FI]*/
  2929. /*[IF*/
  2930. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  2931. /*[IF*/
  2932. /*AF*//*AE*/
  2933. /*FI]*/
  2934. }
  2935. /*FI]*/
  2936. /*[IF*/
  2937. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  2938. /*[IF*/
  2939. /*AF*//*AE*/
  2940. /*FI]*/
  2941. }
  2942. /*FI]*/
  2943. /*[IF*/
  2944. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  2945. /*[IF*/
  2946. if(((/*RF2*/(C)->_ensure_assertion/*44*/))!=((void*)(NULL))){
  2947. /*[IF*/
  2948. if(r214use_current((T214*)((/*RF2*/(C)->_ensure_assertion/*44*/)))){
  2949. (/*SFN*/C->_use_current_state)=22;
  2950. }
  2951. /*FI]*/
  2952. }
  2953. /*FI]*/
  2954. }
  2955. /*FI]*/
  2956. /*[IF*/
  2957. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  2958. (/*SFN*/C->_use_current_state)=21;
  2959. }
  2960. /*FI]*/
  2961. }
  2962.  
  2963.  
  2964. T0* r333run_ensure(T333* C){
  2965. T0* R=NULL;
  2966. R=r51run_ensure((T51*)(X52base_class((/*RF2*/(C)->_current_type/*8*/))),(T0*)C);
  2967. return R;
  2968. }
  2969.  
  2970.  
  2971. void r333default_mapping_function(T333* C){
  2972. T6 _tcbd=0;
  2973. T6 _uc=0;
  2974. T6 _no_check=0;
  2975. _no_check=r47no_check((T47*)(oBC13run_control));
  2976. _uc=r333use_current(C);
  2977. /*[IF*/
  2978. if(!(_uc)){
  2979. _tcbd=r325target_cannot_be_dropped((T325*)(oBC13cpp));
  2980. /*[IF*/
  2981. if(_tcbd){
  2982. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2983. T3 b1=((T3)'\54');
  2984. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2985. }/*]*/
  2986. /*]*/
  2987. }
  2988. /*FI]*/
  2989. }
  2990. /*FI]*/
  2991. r333mapping_name(C);
  2992. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2993. T3 b1=((T3)'\50');
  2994. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2995. }/*]*/
  2996. /*]*/
  2997. /*[IF*/
  2998. if(_no_check){
  2999. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_759));
  3000. /*]*/
  3001. }
  3002. /*FI]*/
  3003. /*[IF*/
  3004. if(_uc){
  3005. /*[IF*/
  3006. if(_no_check){
  3007. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3008. T3 b1=((T3)'\54');
  3009. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3010. }/*]*/
  3011. /*]*/
  3012. }
  3013. /*FI]*/
  3014. r325put_target_as_target((T325*)(oBC13cpp));
  3015. }
  3016. /*FI]*/
  3017. /*[IF*/
  3018. if(((/*RF2*/(C)->_arguments/*32*/))!=((void*)(NULL))){
  3019. /*[IF*/
  3020. if((_uc)||(_no_check)){
  3021. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3022. T3 b1=((T3)'\54');
  3023. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3024. }/*]*/
  3025. /*]*/
  3026. }
  3027. /*FI]*/
  3028. r325put_arguments((T325*)(oBC13cpp));
  3029. }
  3030. /*FI]*/
  3031. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3032. T3 b1=((T3)'\51');
  3033. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3034. }/*]*/
  3035. /*]*/
  3036. /*[IF*/
  3037. if((!(_uc))&&(_tcbd)){
  3038. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3039. T3 b1=((T3)'\51');
  3040. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3041. }/*]*/
  3042. /*]*/
  3043. }
  3044. /*FI]*/
  3045. }
  3046.  
  3047.  
  3048. void r333make(T333* C,T0* a1,T0* a2,T0* a3){
  3049. (/*SFN*/C->_current_type)=a1;
  3050. (/*SFN*/C->_name)=a2;
  3051. (/*SFN*/C->_base_feature)=a3;
  3052. r50add_rf((T50*)(r333run_class(C)),(T0*)C,X82to_key(a2));
  3053. r49incr_magic_count((T49*)(oBC13small_eiffel));
  3054. (/*SFN*/C->_use_current_state)=23;
  3055. (/*SFN*/C->_stupid_switch_state)=23;
  3056. r49push((T49*)(oBC13small_eiffel),(T0*)C);
  3057. r333initialize(C);
  3058. r49pop((T49*)(oBC13small_eiffel));
  3059. }
  3060.  
  3061.  
  3062. void r333external_prototype_for(T333* C,T0* a1,T0* a2){
  3063. T0* _t=NULL;
  3064. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3065. /*]*/
  3066. r7append((T7*)(oBC334c_code),a1);
  3067. _t=(/*RF2*/(C)->_result_type/*36*/);
  3068. /*[IF*/
  3069. if((_t)==((void*)(NULL))){
  3070. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  3071. }
  3072. else{
  3073. X52c_type_for_external_in(_t,oBC334c_code);
  3074. }
  3075. /*FI]*/
  3076. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  3077. r7append((T7*)(oBC334c_code),/*SSFRF4*//*X289external_c_name*/r291external_c_name(((T291*)a2)));
  3078. r7extend((T7*)(oBC334c_code),((T3)'\50'));
  3079. /*[IF*/
  3080. if(X289use_current(a2)){
  3081. X52c_type_for_external_in((/*RF2*/(C)->_current_type/*8*/),oBC334c_code);
  3082. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  3083. r7extend((T7*)(oBC334c_code),((T3)'C'));
  3084. /*[IF*/
  3085. if(((/*RF2*/(C)->_arguments/*32*/))!=((void*)(NULL))){
  3086. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  3087. }
  3088. /*FI]*/
  3089. }
  3090. /*FI]*/
  3091. /*[IF*/
  3092. if(((/*RF2*/(C)->_arguments/*32*/))==((void*)(NULL))){
  3093. /*[IF*/
  3094. if(!(X289use_current(a2))){
  3095. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  3096. }
  3097. /*FI]*/
  3098. }
  3099. else{
  3100. r178external_prototype_in((T178*)((/*RF2*/(C)->_arguments/*32*/)),oBC334c_code);
  3101. }
  3102. /*FI]*/
  3103. r7extend((T7*)(oBC334c_code),((T3)'\51'));
  3104. }
  3105.  
  3106.  
  3107. T2 r333arg_count(T333* C){
  3108. T2 R=0;
  3109. /*[IF*/
  3110. if(((/*RF2*/(C)->_arguments/*32*/))!=((void*)(NULL))){
  3111. R=/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*32*/)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/;
  3112. }
  3113. /*FI]*/
  3114. return R;
  3115. }
  3116.  
  3117.  
  3118. void r333c_define_opening(T333* C){
  3119. T0* _oresult=NULL;
  3120. T6 _ensure_check=0;
  3121. T6 _no_check=0;
  3122. T0* _t=NULL;
  3123. _no_check=r47no_check((T47*)(oBC13run_control));
  3124. _ensure_check=r47ensure_check((T47*)(oBC13run_control));
  3125. /*[IF*/
  3126. /*AF*//*AE*/
  3127. /*FI]*/
  3128. /*[IF*/
  3129. /*AF*/if(((/*RF2*/(C)->_result_type/*36*/))!=((void*)(NULL))){
  3130. _t=X52run_type((/*RF2*/(C)->_result_type/*36*/));
  3131. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3132. /*]*/
  3133. X52c_type_for_result_in(_t,oBC334c_code);
  3134. r7append((T7*)(oBC334c_code),((T0*)ms334_525));
  3135. X52c_initialize_in(_t,oBC334c_code);
  3136. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  3137. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3138. /*]*/
  3139. /*[IF*/
  3140. if(_no_check){
  3141. r7append((T7*)(oBC13c_frame_descriptor_locals),((T0*)ms334_10538));
  3142. r203increment((T203*)(oBC13c_frame_descriptor_local_count));
  3143. r7append((T7*)(oBC13c_frame_descriptor_format),((T0*)ms15_7314));
  3144. X52c_frame_descriptor(_t);
  3145. }
  3146. /*FI]*/
  3147. }
  3148. /*FI]*/
  3149. /*[IF*/
  3150. /*AF*//*AE*/
  3151. /*FI]*/
  3152. /*[IF*/
  3153. if(_ensure_check){
  3154. /*[IF*/
  3155. if(((/*RF2*/(C)->_ensure_assertion/*44*/))!=((void*)(NULL))){
  3156. r214c_declare_for_old((T214*)((/*RF2*/(C)->_ensure_assertion/*44*/)));
  3157. }
  3158. /*FI]*/
  3159. }
  3160. /*FI]*/
  3161. /*[IF*/
  3162. if(_no_check){
  3163. /*[IF*/
  3164. if(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))>(0)){
  3165. r7copy((T7*)(oBC334c_code),((T0*)ms334_21567));
  3166. /*[IRF3.5append_in*/r2append_in(((T2)((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))),oBC334c_code);
  3167. /*]*/
  3168. r7extend((T7*)(oBC334c_code),((T3)'\135'));
  3169. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  3170. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3171. /*]*/
  3172. }
  3173. /*FI]*/
  3174. r333c_initialize_ds_one_by_one(C);
  3175. /*[IRF3.2c_initialize_locals_one_by_one*/{T3 _c=0;
  3176. T2 _j=0;
  3177. T2 _i=0;
  3178. _j=1;
  3179. while (!(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))==(_i)))
  3180. {
  3181. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_8120));
  3182. /*]*/
  3183. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),_i);
  3184. /*]*/
  3185. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_308));
  3186. /*]*/
  3187. _c=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC13c_frame_descriptor_locals))->_storage/*0*/))[(_j)-(1)]/*)*/;
  3188. while (!((_c)==(((T3)'\54'))))
  3189. {
  3190. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3191. T3 b1=_c;
  3192. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3193. }/*]*/
  3194. /*]*/
  3195. _j=(_j)+(1);
  3196. _c=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC13c_frame_descriptor_locals))->_storage/*0*/))[(_j)-(1)]/*)*/;
  3197. }
  3198. _j=(_j)+(1);
  3199. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  3200. /*]*/
  3201. _i=(_i)+(1);
  3202. }
  3203. }/*]*/
  3204. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_14520a));
  3205. /*]*/
  3206. }
  3207. /*FI]*/
  3208. /*[IF*/
  3209. if(_ensure_check){
  3210. /*[IF*/
  3211. if(((/*RF2*/(C)->_ensure_assertion/*44*/))!=((void*)(NULL))){
  3212. r214compile_to_c_old((T214*)((/*RF2*/(C)->_ensure_assertion/*44*/)));
  3213. }
  3214. /*FI]*/
  3215. }
  3216. /*FI]*/
  3217. /*[IF*/
  3218. /*AF*//*AE*/
  3219. /*FI]*/
  3220. /*[IF*/
  3221. /*AF*//*AE*/
  3222. /*FI]*/
  3223. /*[IF*/
  3224. /*AF*//*AE*/
  3225. /*FI]*/
  3226. /*[IF*/
  3227. if(((/*RF2*/(C)->_require_assertion/*40*/))!=((void*)(NULL))){
  3228. r376compile_to_c((T376*)((/*RF2*/(C)->_require_assertion/*40*/)));
  3229. }
  3230. /*FI]*/
  3231. /*[IF*/
  3232. /*AF*//*AE*/
  3233. /*FI]*/
  3234. }
  3235.  
  3236.  
  3237. void r333c_define_closing(T333* C){
  3238. /*[IF*/
  3239. if(r47ensure_check((T47*)(oBC13run_control))){
  3240. /*[IF*/
  3241. if(((/*RF2*/(C)->_ensure_assertion/*44*/))!=((void*)(NULL))){
  3242. r214compile_to_c((T214*)((/*RF2*/(C)->_ensure_assertion/*44*/)));
  3243. }
  3244. /*FI]*/
  3245. }
  3246. /*FI]*/
  3247. /*[IF*/
  3248. if(r333use_current(C)){
  3249. /*[IF*/
  3250. if((X82to_string((/*RF2*/(C)->_name/*12*/)))!=((void*)(((T0*)ms15_8750)))){
  3251. r325current_class_invariant((/*RF2*/(C)->_current_type/*8*/));
  3252. }
  3253. /*FI]*/
  3254. }
  3255. /*FI]*/
  3256. /*[IF*/
  3257. /*AF*//*AE*/
  3258. /*FI]*/
  3259. /*[IF*/
  3260. if(r47no_check((T47*)(oBC13run_control))){
  3261. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_19400));
  3262. /*]*/
  3263. }
  3264. /*FI]*/
  3265. }
  3266.  
  3267.  
  3268. void r333c_assertion_flag(T333* C){
  3269. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3270. /*]*/
  3271. r333c_frame_descriptor_name_in(C,oBC334c_code);
  3272. r7append((T7*)(oBC334c_code),((T0*)ms334_30285));
  3273. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3274. /*]*/
  3275. }
  3276.  
  3277.  
  3278. void r333c_define_with_body(T333* C,T0* a1){
  3279. r333define_prototype(C);
  3280. r333c_define_opening(C);
  3281. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),a1);
  3282. /*]*/
  3283. r333c_define_closing(C);
  3284. /*[IF*/
  3285. if(((/*RF2*/(C)->_result_type/*36*/))==((void*)(NULL))){
  3286. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_270a));
  3287. /*]*/
  3288. }
  3289. else{
  3290. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_8184));
  3291. /*]*/
  3292. }
  3293. /*FI]*/
  3294. r333c_frame_descriptor(C);
  3295. }
  3296.  
  3297.  
  3298. void r333initialize(T333* C){
  3299. T0* _type_bit_ref=NULL;
  3300. T0* _rf=NULL;
  3301. T0* _n=NULL;
  3302. _n=X82to_string(/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_names/*8*/))))->_first/*0*/)/*)*/);
  3303. (/*SFN*/C->_arguments)=(/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_arguments/*20*/);
  3304. _type_bit_ref=(/*RF2*/(C)->_current_type/*8*/);
  3305. if(NULL!=(_type_bit_ref)){
  3306. switch(((T0*)_type_bit_ref)->id){
  3307. case 390:
  3308. break;
  3309. default:
  3310. _type_bit_ref=NULL;
  3311. }
  3312. }/*[IF*/
  3313. if(((_type_bit_ref)!=((void*)(NULL)))&&((((T0*)ms15_1724))==((void*)(_n)))){
  3314. (/*SFN*/C->_result_type)=(/*RF2*/(((T390*)_type_bit_ref))->_type_bit/*12*/);
  3315. /*[IF*/
  3316. if(((/*RF2*/(C)->_arguments/*32*/))!=((void*)(NULL))){
  3317. /*[IF*/
  3318. if(!(r178is_runnable((T178*)((/*RF2*/(C)->_arguments/*32*/)),(/*RF2*/(C)->_current_type/*8*/)))){
  3319. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  3320. *n=M178;
  3321. r178with(n,(/*RF2*/(C)->_arguments/*32*/),(/*RF2*/(C)->_current_type/*8*/));
  3322. (/*SFN*/C->_arguments)=((T0*)n);
  3323. }
  3324. }
  3325. /*FI]*/
  3326. }
  3327. /*FI]*/
  3328. }
  3329. else{
  3330. (/*SFN*/C->_result_type)=(/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_result_type/*48*/);
  3331. /*[IF*/
  3332. if(((/*RF2*/(C)->_arguments/*32*/))==((void*)(NULL))){
  3333. (/*SFN*/C->_result_type)=X52to_runnable((/*RF2*/(C)->_result_type/*36*/),(/*RF2*/(C)->_current_type/*8*/));
  3334. }
  3335.  else if(X52is_like_argument((/*RF2*/(C)->_result_type/*36*/))){
  3336. /*[IF*/
  3337. if(!(r178is_runnable((T178*)((/*RF2*/(C)->_arguments/*32*/)),(/*RF2*/(C)->_current_type/*8*/)))){
  3338. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  3339. *n=M178;
  3340. r178with(n,(/*RF2*/(C)->_arguments/*32*/),(/*RF2*/(C)->_current_type/*8*/));
  3341. (/*SFN*/C->_arguments)=((T0*)n);
  3342. }
  3343. }
  3344. /*FI]*/
  3345. (/*SFN*/C->_result_type)=X52to_runnable((/*RF2*/(C)->_result_type/*36*/),(/*RF2*/(C)->_current_type/*8*/));
  3346. }
  3347. else{
  3348. (/*SFN*/C->_result_type)=X52to_runnable((/*RF2*/(C)->_result_type/*36*/),(/*RF2*/(C)->_current_type/*8*/));
  3349. /*[IF*/
  3350. if(!(r178is_runnable((T178*)((/*RF2*/(C)->_arguments/*32*/)),(/*RF2*/(C)->_current_type/*8*/)))){
  3351. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  3352. *n=M178;
  3353. r178with(n,(/*RF2*/(C)->_arguments/*32*/),(/*RF2*/(C)->_current_type/*8*/));
  3354. (/*SFN*/C->_arguments)=((T0*)n);
  3355. }
  3356. }
  3357. /*FI]*/
  3358. }
  3359. /*FI]*/
  3360. }
  3361. /*FI]*/
  3362. /*[IF*/
  3363. if(r47require_check((T47*)(oBC13run_control))){
  3364. (/*SFN*/C->_require_assertion)=r333run_require(C);
  3365. }
  3366. /*FI]*/
  3367. /*[IF*/
  3368. if(r47ensure_check((T47*)(oBC13run_control))){
  3369. (/*SFN*/C->_ensure_assertion)=r333run_ensure(C);
  3370. }
  3371. /*FI]*/
  3372. /*[IF*/
  3373. if((((T0*)ms15_1800))==((void*)(_n))){
  3374. _rf=r50get_copy((T50*)(r333run_class(C)));
  3375. }
  3376.  else if((((T0*)ms15_8505))==((void*)(_n))){
  3377. ((/*UT*/(void)((T271*)(r333type_string()))),r271set_at_run_time());
  3378. }
  3379.  else if((((T0*)ms15_30660))==((void*)(_n))){
  3380. /*[IRF3.3set_generator_used*/((((T47*)((T47*)(oBC13run_control))))->_generator_used)=(1);
  3381. /*]*/
  3382. /*[IRF3.3set_generating_type_used*/((((T47*)((T47*)(oBC13run_control))))->_generating_type_used)=(1);
  3383. /*]*/
  3384. }
  3385.  else if((((T0*)ms15_13995))==((void*)(_n))){
  3386. /*[IRF3.3set_generator_used*/((((T47*)((T47*)(oBC13run_control))))->_generator_used)=(1);
  3387. /*]*/
  3388. }
  3389.  else if((((T0*)ms15_13491))==((void*)(_n))){
  3390. /*[IRF3.3set_deep_twin_used*/((((T47*)((T47*)(oBC13run_control))))->_deep_twin_used)=(1);
  3391. /*]*/
  3392. _rf=r50get_feature_with((T50*)(r259run_class((T259*)(r333type_any()))),((T0*)ms15_15190));
  3393. }
  3394.  else if((((T0*)ms15_24960))==((void*)(_n))){
  3395. r47set_is_deep_equal_used((T47*)(oBC13run_control));
  3396. }
  3397.  else if((((T0*)ms15_13707))==((void*)(_n))){
  3398. /*[IRF3.3set_used*/((((T380*)((T380*)(oBC13exceptions_handler))))->_used)=(1);
  3399. /*]*/
  3400. }
  3401.  else if((((T0*)ms15_26156))==((void*)(_n))){
  3402. /*[IRF3.3set_used*/((((T380*)((T380*)(oBC13exceptions_handler))))->_used)=(1);
  3403. /*]*/
  3404. }
  3405.  else if(r7has_prefix(((T7*)_n),((T0*)ms14_6504))){
  3406. r49register_sys_runtime_basic_of(_n);
  3407. }
  3408. /*FI]*/
  3409. }
  3410.  
  3411.  
  3412. void r333compute_stupid_switch(T333* C,T0* a1){
  3413. /*[IF*/
  3414. if(X288stupid_switch_function((/*RF2*/((T291*)((/*RF2*/(C)->_base_feature/*24*/)))->_native/*40*/),a1,X82to_string((/*RF2*/(C)->_name/*12*/)))){
  3415. (/*SFN*/C->_stupid_switch_state)=22;
  3416. }
  3417. else{
  3418. (/*SFN*/C->_stupid_switch_state)=21;
  3419. }
  3420. /*FI]*/
  3421. }
  3422.  
  3423.  
  3424. void r333mapping_c(T333* C){
  3425. T0* _bcn=NULL;
  3426. T0* _native=NULL;
  3427. T0* _bf=NULL;
  3428. _bf=(/*RF2*/(C)->_base_feature/*24*/);
  3429. _native=(/*RF2*/(((T291*)_bf))->_native/*40*/);
  3430. _bcn=(/*RF2*/((T61*)((/*RF2*/((T51*)((/*RF2*/(((T291*)_bf))->_base_class/*4*/)))->_name/*18*/)))->_to_string/*8*/);
  3431. X288c_mapping_function(_native,(T0*)C,_bcn,X82to_string(/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/(((T291*)_bf))->_names/*8*/))))->_first/*0*/)/*)*/));
  3432. }
  3433.  
  3434.  
  3435. void r333routine_afd_check(T333* C){
  3436. /*[IF*/
  3437. if(((/*RF2*/(C)->_require_assertion/*40*/))!=((void*)(NULL))){
  3438. r376afd_check((T376*)((/*RF2*/(C)->_require_assertion/*40*/)));
  3439. }
  3440. /*FI]*/
  3441. /*[IF*/
  3442. /*AF*//*AE*/
  3443. /*FI]*/
  3444. /*[IF*/
  3445. /*AF*//*AE*/
  3446. /*FI]*/
  3447. /*[IF*/
  3448. if(((/*RF2*/(C)->_ensure_assertion/*44*/))!=((void*)(NULL))){
  3449. r214afd_check((T214*)((/*RF2*/(C)->_ensure_assertion/*44*/)));
  3450. }
  3451. /*FI]*/
  3452. }
  3453.  
  3454.  
  3455. T0* r333type_any(void){
  3456. if(fBC13type_any==0){fBC13type_any=1;{
  3457. T68 _unknown_position={NULL,0};
  3458. {T259*n=((T259*)malloc(sizeof(*n))/*8*/);
  3459. *n=M259;
  3460. oBC13type_any=((T0*)n);
  3461. r259make(n,_unknown_position);
  3462. }
  3463. }}
  3464. return oBC13type_any;
  3465. }
  3466.  
  3467.  
  3468. T2 r333integer_value(T333* C,T68 a1){
  3469. T2 R=0;
  3470. T0* _n=NULL;
  3471. _n=X82to_string((/*RF2*/(C)->_name/*12*/));
  3472. /*[IF*/
  3473. if((((T0*)ms15_22596))==((void*)(_n))){
  3474. R=EIF_INTEGER_BITS;
  3475. }
  3476.  else if((((T0*)ms15_29246))==((void*)(_n))){
  3477. R=EIF_CHARACTER_BITS;
  3478. }
  3479. else{
  3480. r66add_position(a1);
  3481. {T68 se_tmp0;
  3482. r66add_position(/*(IRF4.6start_position*/(*(se_tmp0=r291start_position(((T291*)((/*RF2*/(C)->_base_feature/*24*/)))),&se_tmp0))/*)*/);
  3483. }
  3484. r333fatal_error(((T0*)ms14_45441));
  3485. }
  3486. /*FI]*/
  3487. return R;
  3488. }
  3489.  
  3490.  
  3491. T0* r333run_require(T333* C){
  3492. T0* R=NULL;
  3493. R=r51run_require((T51*)(X52base_class((/*RF2*/(C)->_current_type/*8*/))),(T0*)C);
  3494. return R;
  3495. }
  3496.  
  3497.  
  3498. void r333mapping_name(T333* C){
  3499. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3500. /*]*/
  3501. r7extend((T7*)(oBC334c_code),((T3)'r'));
  3502. r2append_in(r333id(C),oBC334c_code);
  3503. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),oBC334c_code);
  3504. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3505. /*]*/
  3506. }
  3507.  
  3508.  
  3509. void r333c_initialize_ds_one_by_one(T333* C){
  3510. r7copy((T7*)(oBC334c_code),((T0*)ms334_36950));
  3511. r333c_frame_descriptor_name_in(C,oBC334c_code);
  3512. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  3513. /*[IF*/
  3514. if(r333use_current(C)){
  3515. r7append((T7*)(oBC334c_code),((T0*)ms334_18175));
  3516. }
  3517. else{
  3518. r7append((T7*)(oBC334c_code),((T0*)ms334_10999));
  3519. }
  3520. /*FI]*/
  3521. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3522. /*]*/
  3523. {T68 se_tmp0;
  3524. r325put_position_in_ds(/*(IRF4.6start_position*/(*(se_tmp0=r291start_position(((T291*)((/*RF2*/(C)->_base_feature/*24*/)))),&se_tmp0))/*)*/);
  3525. }
  3526. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11466));
  3527. /*]*/
  3528. /*[IF*/
  3529. if(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))>(0)){
  3530. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11880));
  3531. /*]*/
  3532. }
  3533. /*FI]*/
  3534. }
  3535.  
  3536.  
  3537. T6 r333use_current(T333* C){
  3538. T6 R=0;
  3539. {int z1=(/*RF2*/(C)->_use_current_state/*16*/);
  3540.  
  3541. if((22==z1)){
  3542. R=1;
  3543. }
  3544.  else 
  3545. if((21==z1)){
  3546. }
  3547.  else 
  3548. if((23==z1)){
  3549. (/*SFN*/C->_use_current_state)=24;
  3550. r333compute_use_current(C);
  3551. R=((/*RF2*/(C)->_use_current_state/*16*/))==(22);
  3552. }
  3553.  else {R=1;
  3554. }}
  3555. return R;
  3556. }
  3557.  
  3558.  
  3559. T6 r333is_static(T333* C){
  3560. T6 R=0;
  3561. T0* _type_bit=NULL;
  3562. T0* _n=NULL;
  3563. _n=X82to_string((/*RF2*/(C)->_name/*12*/));
  3564. /*[IF*/
  3565. if((((T0*)ms15_34432))==((void*)(_n))){
  3566. R=1;
  3567. /*[IF*/
  3568. if(X52is_expanded((/*RF2*/(C)->_current_type/*8*/))){
  3569. (/*SFN*/C->_static_value_mem)=1;
  3570. }
  3571. /*FI]*/
  3572. }
  3573.  else if((((T0*)ms15_60104))==((void*)(_n))){
  3574. R=1;
  3575. /*[IF*/
  3576. if(X52is_basic_eiffel_expanded((/*RF2*/(C)->_current_type/*8*/))){
  3577. (/*SFN*/C->_static_value_mem)=1;
  3578. }
  3579. /*FI]*/
  3580. }
  3581.  else if(((((T0*)ms15_2765a))==((void*)(_n)))&&(X52is_bit((/*RF2*/(C)->_current_type/*8*/)))){
  3582. R=1;
  3583. _type_bit=(/*RF2*/(C)->_current_type/*8*/);
  3584. if(NULL!=(_type_bit)){
  3585. switch(((T0*)_type_bit)->id){
  3586. case 275:case 277:
  3587. break;
  3588. default:
  3589. _type_bit=NULL;
  3590. }
  3591. }(/*SFN*/C->_static_value_mem)=X276nb(_type_bit);
  3592. }
  3593. /*FI]*/
  3594. return R;
  3595. }
  3596.  
  3597.  
  3598. T6 r333is_exported_in(T333* C,T0* a1){
  3599. T6 R=0;
  3600. R=r99gives_permission_to((T99*)(r333clients(C)),a1);
  3601. return R;
  3602. }
  3603.  
  3604.  
  3605. void r333c_closing(T333* C){
  3606. r333c_define_closing(C);
  3607. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_8184));
  3608. /*]*/
  3609. r333c_frame_descriptor(C);
  3610. }
  3611.  
  3612.  
  3613. T0* r333run_class(T333* C){
  3614. T0* R=NULL;
  3615. R=X52run_class((/*RF2*/(C)->_current_type/*8*/));
  3616. return R;
  3617. }
  3618.  
  3619.  
  3620. void r333fatal_error(T0* a1){
  3621. /*[IRF3.6append*/{T0* b1=a1;
  3622. r7append((T7*)(oBC66explanation),b1);
  3623. }/*]*/
  3624. r66print_as_fatal_error((T66*)(oBC13eh));
  3625. }
  3626.  
  3627.  
  3628. void r333c_opening(T333* C){
  3629. r333define_prototype(C);
  3630. r333c_define_opening(C);
  3631. }
  3632.  
  3633.  
  3634. T0* r333stupid_switch(T333* C,T0* a1){
  3635. T0* R=NULL;
  3636. {int z1=(/*RF2*/(C)->_stupid_switch_state/*20*/);
  3637.  
  3638. if((22==z1)){
  3639. R=((T0*)ms333_5537);
  3640. }
  3641.  else 
  3642. if((21==z1)){
  3643. }
  3644.  else 
  3645. if((23==z1)){
  3646. (/*SFN*/C->_stupid_switch_state)=24;
  3647. r333compute_stupid_switch(C,a1);
  3648. /*[IF*/
  3649. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(22)){
  3650. R=((T0*)ms333_5537);
  3651. }
  3652. /*FI]*/
  3653. }
  3654.  else {}}
  3655. return R;
  3656. }
  3657.  
  3658.  
  3659. void r333define_prototype(T333* C){
  3660. T6 _no_check=0;
  3661. T2 _mem_id=0;
  3662. _no_check=r47no_check((T47*)(oBC13run_control));
  3663. /*[IF*/
  3664. if(r47no_check((T47*)(oBC13run_control))){
  3665. /*[IRF3.3reset*/((((T203*)((T203*)(oBC13c_frame_descriptor_local_count))))->_value)=(0);
  3666. /*]*/
  3667. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_format))))->_count)=(0);
  3668. /*]*/
  3669. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\42'));
  3670. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_locals))))->_count)=(0);
  3671. /*]*/
  3672. }
  3673. /*FI]*/
  3674. _mem_id=r333id(C);
  3675. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3676. /*]*/
  3677. /*[IF*/
  3678. if(((/*RF2*/(C)->_result_type/*36*/))==((void*)(NULL))){
  3679. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  3680. }
  3681. else{
  3682. X52c_type_for_result_in(X52run_type((/*RF2*/(C)->_result_type/*36*/)),oBC334c_code);
  3683. }
  3684. /*FI]*/
  3685. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  3686. r7extend((T7*)(oBC334c_code),((T3)'r'));
  3687. r2append_in(_mem_id,oBC334c_code);
  3688. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),oBC334c_code);
  3689. r7extend((T7*)(oBC334c_code),((T3)'\50'));
  3690. /*[IF*/
  3691. if(_no_check){
  3692. r7append((T7*)(oBC334c_code),((T0*)ms334_56160));
  3693. /*[IF*/
  3694. if((r333use_current(C))||(((/*RF2*/(C)->_arguments/*32*/))!=((void*)(NULL)))){
  3695. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  3696. }
  3697. /*FI]*/
  3698. }
  3699. /*FI]*/
  3700. /*[IF*/
  3701. if(r333use_current(C)){
  3702. X52c_type_for_target_in((/*RF2*/(C)->_current_type/*8*/),oBC334c_code);
  3703. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  3704. r7extend((T7*)(oBC334c_code),((T3)'C'));
  3705. X52c_frame_descriptor((/*RF2*/(C)->_current_type/*8*/));
  3706. /*[IF*/
  3707. if(((/*RF2*/(C)->_arguments/*32*/))!=((void*)(NULL))){
  3708. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  3709. }
  3710. /*FI]*/
  3711. }
  3712. /*FI]*/
  3713. /*[IF*/
  3714. if(((/*RF2*/(C)->_arguments/*32*/))==((void*)(NULL))){
  3715. /*[IF*/
  3716. if(_no_check){
  3717. }
  3718.  else if(!(r333use_current(C))){
  3719. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  3720. }
  3721. /*FI]*/
  3722. }
  3723. else{
  3724. r178compile_to_c_in((T178*)((/*RF2*/(C)->_arguments/*32*/)),oBC334c_code);
  3725. }
  3726. /*FI]*/
  3727. r7extend((T7*)(oBC334c_code),((T3)'\51'));
  3728. r325put_c_heading((T325*)(oBC13cpp),oBC334c_code);
  3729. /*[IRF3.3swap_on_c*/((((T325*)((T325*)(oBC13cpp))))->_current_out)=(oBC325out_c);
  3730. /*]*/
  3731. }
  3732.  
  3733.  
  3734. void r333c_frame_descriptor(T333* C){
  3735. /*[IF*/
  3736. if(r47no_check((T47*)(oBC13run_control))){
  3737. r7copy((T7*)(oBC334c_code),((T0*)ms334_23340));
  3738. r333c_frame_descriptor_name_in(C,oBC334c_code);
  3739. r325put_extern7((T325*)(oBC13cpp),oBC334c_code);
  3740. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3741. T3 b1=((T3)'\173');
  3742. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3743. }/*]*/
  3744. /*]*/
  3745. r333put_c_name_tag(C);
  3746. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3747. /*]*/
  3748. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  3749. /*[IF*/
  3750. if(r333use_current(C)){
  3751. r7extend((T7*)(oBC334c_code),((T3)'1'));
  3752. }
  3753. else{
  3754. r7extend((T7*)(oBC334c_code),((T3)'0'));
  3755. }
  3756. /*FI]*/
  3757. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  3758. /*[IRF3.5append_in*/r2append_in(((T2)((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))),oBC334c_code);
  3759. /*]*/
  3760. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  3761. r7append((T7*)(oBC334c_code),oBC13c_frame_descriptor_format);
  3762. r7append((T7*)(oBC334c_code),((T0*)ms334_2226));
  3763. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3764. /*]*/
  3765. }
  3766. /*FI]*/
  3767. }
  3768.  
  3769.  
  3770. void r333fe_vffd7(T333* C){
  3771. {T68 se_tmp0;
  3772. r66add_position((*(se_tmp0=X52start_position((/*RF2*/(C)->_result_type/*36*/)),&se_tmp0)));
  3773. }
  3774. r333fatal_error(((T0*)ms334_203069));
  3775. }
  3776.  
  3777.  
  3778. void r333c_frame_descriptor_name_in(T333* C,T0* a1){
  3779. r7extend(((T7*)a1),((T3)'f'));
  3780. r2append_in(r333id(C),a1);
  3781. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),a1);
  3782. }
  3783.  
  3784.  
  3785. void r380initialize_runtime(T380* C){
  3786. /*[IF*/
  3787. if((/*RF2*/(C)->_used/*0*/)){
  3788. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms380_19224));
  3789. /*]*/
  3790. }
  3791. /*FI]*/
  3792. }
  3793.  
  3794.  
  3795. void r380se_evobt(T380* C){
  3796. /*[IF*/
  3797. if((/*RF2*/(C)->_used/*0*/)){
  3798. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms380_108468));
  3799. /*]*/
  3800. }
  3801. else{
  3802. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms380_66430));
  3803. /*]*/
  3804. }
  3805. /*FI]*/
  3806. }
  3807.  
  3808.  
  3809. void r380incorrect_inspect_value(T380* C,T68 a1){
  3810. /*[IF*/
  3811. if((/*RF2*/(C)->_used/*0*/)){
  3812. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms380_57028));
  3813. /*]*/
  3814. }
  3815. else{
  3816. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms380_114030));
  3817. /*]*/
  3818. /*[IRF3.6put_position*/{T68 b1=a1;
  3819. r48put_integer((T48*)(oBC325out_c),(/*RF2*/(b1)._mangling/*4*/));
  3820. }/*]*/
  3821. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_330));
  3822. /*]*/
  3823. }
  3824. /*FI]*/
  3825. }
  3826.  
  3827.  
  3828. void r380get_started(T380* C){
  3829. T6 _no_check=0;
  3830. _no_check=r47no_check((T47*)(oBC13run_control));
  3831. /*[IF*/
  3832. if((/*RF2*/(C)->_used/*0*/)){
  3833. r325sys_runtime_h((T325*)(oBC13cpp),((T0*)ms380_16830));
  3834. r325sys_runtime_c(((T0*)ms380_16830));
  3835. }
  3836. /*FI]*/
  3837. }
  3838.  
  3839.  
  3840. void r78check_expanded_with(T78* C,T0* a1){
  3841. T0* _rc=NULL;
  3842. T0* _rf3=NULL;
  3843. T0* _rf=NULL;
  3844. /*[IF*/
  3845. if(((/*RF2*/(C)->_procedure_list/*16*/))==((void*)(NULL))){
  3846. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  3847. r78fatal_error(((T0*)ms78_139750));
  3848. }
  3849. /*FI]*/
  3850. /*[IF*/
  3851. if((r83count((T83*)((/*RF2*/(C)->_procedure_list/*16*/))))>(1)){
  3852. r66add_type(a1,((T0*)ms14_23520));
  3853. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  3854. /*[IRF3.2fatal_error_vtec_2*/r78fatal_error(((T0*)ms13_570704));
  3855. /*]*/
  3856. }
  3857. /*FI]*/
  3858. _rc=X52run_class(a1);
  3859. _rf=r50get_feature(((T50*)_rc),r83item((T83*)((/*RF2*/(C)->_procedure_list/*16*/)),1));
  3860. /*[IF*/
  3861. if((_rf)==((void*)(NULL))){
  3862. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  3863. /*[IRF3.6append*/{T0* b1=((T0*)ms78_28313);
  3864. r7append((T7*)(oBC66explanation),b1);
  3865. }/*]*/
  3866. r66add_type(a1,((T0*)ms78_9977));
  3867. r66print_as_fatal_error((T66*)(oBC13eh));
  3868. }
  3869. /*FI]*/
  3870. _rf3=_rf;
  3871. if(NULL!=(_rf3)){
  3872. switch(((T0*)_rf3)->id){
  3873. case 368:
  3874. break;
  3875. default:
  3876. _rf3=NULL;
  3877. }
  3878. }/*[IF*/
  3879. if((_rf3)==((void*)(NULL))){
  3880. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  3881. {T68 se_tmp0;
  3882. r66add_position((*(se_tmp0=X334start_position(_rf),&se_tmp0)));
  3883. }
  3884. r78fatal_error(((T0*)ms78_66627));
  3885. }
  3886. /*FI]*/
  3887. /*[IF*/
  3888. if(((/*RF2*/(((T368*)_rf3))->_arguments/*28*/))!=((void*)(NULL))){
  3889. r66add_type(a1,((T0*)ms14_23520));
  3890. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  3891. {T68 se_tmp0;
  3892. r66add_position(/*(IRF4.6start_position*/(*(se_tmp0=r303start_position(((T303*)((/*RF2*/(((T368*)_rf3))->_base_feature/*24*/)))),&se_tmp0))/*)*/);
  3893. }
  3894. /*[IRF3.6append*/{T0* b1=((T0*)ms78_46407);
  3895. r7append((T7*)(oBC66explanation),b1);
  3896. }/*]*/
  3897. /*[IRF3.2fatal_error_vtec_2*/r78fatal_error(((T0*)ms13_570704));
  3898. /*]*/
  3899. }
  3900. /*FI]*/
  3901. }
  3902.  
  3903.  
  3904. T0* r78root_procedure_name(T78* C,T0* a1){
  3905. T0* R=NULL;
  3906. /*[IF*/
  3907. if(((/*RF2*/(C)->_procedure_list/*16*/))==((void*)(NULL))){
  3908. }
  3909. else{
  3910. R=r83root_procedure_name((T83*)((/*RF2*/(C)->_procedure_list/*16*/)),a1);
  3911. }
  3912. /*FI]*/
  3913. return R;
  3914. }
  3915.  
  3916.  
  3917. void r78make(T78* C,T68 a1,T0* a2,T0* a3,T0* a4){
  3918. (/*SFN*/C->_start_position)=a1;
  3919. (/*SFN*/C->_clients)=a2;
  3920. (/*SFN*/C->_comment)=a3;
  3921. (/*SFN*/C->_procedure_list)=a4;
  3922. }
  3923.  
  3924.  
  3925. void r78fatal_error(T0* a1){
  3926. /*[IRF3.6append*/{T0* b1=a1;
  3927. r7append((T7*)(oBC66explanation),b1);
  3928. }/*]*/
  3929. r66print_as_fatal_error((T66*)(oBC13eh));
  3930. }
  3931.  
  3932.  
  3933. T0* r78expanded_initializer(T78* C,T0* a1){
  3934. T0* R=NULL;
  3935. /*[IF*/
  3936. if(((/*RF2*/(C)->_procedure_list/*16*/))!=((void*)(NULL))){
  3937. R=r50get_feature((T50*)(X52run_class(a1)),r83item((T83*)((/*RF2*/(C)->_procedure_list/*16*/)),1));
  3938. if(NULL!=(R)){
  3939. switch(((T0*)R)->id){
  3940. case 368:
  3941. break;
  3942. default:
  3943. R=NULL;
  3944. }
  3945. }}
  3946. /*FI]*/
  3947. return R;
  3948. }
  3949.  
  3950.  
  3951. T6 r78has(T78* C,T0* a1){
  3952. T6 R=0;
  3953. /*[IF*/
  3954. if(((/*RF2*/(C)->_procedure_list/*16*/))!=((void*)(NULL))){
  3955. R=r83has((T83*)((/*RF2*/(C)->_procedure_list/*16*/)),a1);
  3956. }
  3957. /*FI]*/
  3958. return R;
  3959. }
  3960.  
  3961.  
  3962. T0* r181base_class_written(T181* C){
  3963. T0* R=NULL;
  3964. R=(/*RF2*/((/*RF2*/(C)->_start_position/*4*/))._base_class/*0*/);
  3965. return R;
  3966. }
  3967.  
  3968.  
  3969. T0* r181add_comment(T181* C,T0* a1){
  3970. T0* R=NULL;
  3971. /*[IF*/
  3972. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  3973. R=((T0*)(C));
  3974. }
  3975. else{
  3976. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  3977. *n=M229;
  3978. r229make(n,(T0*)C,a1);
  3979. R=((T0*)n);
  3980. }
  3981. }
  3982. /*FI]*/
  3983. return R;
  3984. }
  3985.  
  3986.  
  3987. void r181mapping_c_target(T181* C,T0* a1){
  3988. T0* _rt=NULL;
  3989. T6 _flag=0;
  3990. _flag=r325call_invariant_start(a1);
  3991. _rt=X52run_type((/*RF2*/(C)->_result_type/*16*/));
  3992. /*[IF*/
  3993. if(X52is_reference(_rt)){
  3994. /*[IF*/
  3995. if(X52is_reference(a1)){
  3996. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_492));
  3997. /*]*/
  3998. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X52id(a1));
  3999. /*]*/
  4000. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_166));
  4001. /*]*/
  4002. r325print_argument((T325*)(oBC13cpp),(/*RF2*/(C)->_rank/*20*/));
  4003. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4004. T3 b1=((T3)'\51');
  4005. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4006. }/*]*/
  4007. /*]*/
  4008. }
  4009. else{
  4010. r325print_argument((T325*)(oBC13cpp),(/*RF2*/(C)->_rank/*20*/));
  4011. }
  4012. /*FI]*/
  4013. }
  4014.  else if(X52is_reference(a1)){
  4015. r325print_argument((T325*)(oBC13cpp),(/*RF2*/(C)->_rank/*20*/));
  4016. }
  4017.  else if(X52is_user_expanded(_rt)){
  4018. /*[IF*/
  4019. if(!(X52is_dummy_expanded(_rt))){
  4020. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4021. T3 b1=((T3)'\46');
  4022. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4023. }/*]*/
  4024. /*]*/
  4025. }
  4026. /*FI]*/
  4027. r325print_argument((T325*)(oBC13cpp),(/*RF2*/(C)->_rank/*20*/));
  4028. }
  4029. else{
  4030. r325print_argument((T325*)(oBC13cpp),(/*RF2*/(C)->_rank/*20*/));
  4031. }
  4032. /*FI]*/
  4033. /*[IF*/
  4034. if(_flag){
  4035. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4036. T3 b1=((T3)'\51');
  4037. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4038. }/*]*/
  4039. /*]*/
  4040. }
  4041. /*FI]*/
  4042. }
  4043.  
  4044.  
  4045. T0* r181to_runnable(T181* C,T0* a1){
  4046. T0* R=NULL;
  4047. T0* _rt=NULL;
  4048. _rt=X52to_runnable((/*RF2*/(C)->_result_type/*16*/),a1);
  4049. /*[IF*/
  4050. if((_rt)==((void*)(NULL))){
  4051. {T68 se_tmp0;
  4052. r66add_position((*(se_tmp0=X52start_position((/*RF2*/(C)->_result_type/*16*/)),&se_tmp0)));
  4053. }
  4054. r181error((/*RF2*/(C)->_start_position/*4*/),((T0*)ms181_12870));
  4055. }
  4056. /*FI]*/
  4057. /*[IF*/
  4058. if(((/*RF2*/(C)->_result_type/*16*/))==((void*)(_rt))){
  4059. R=((T0*)(C));
  4060. }
  4061. else{
  4062. R=r181twin(C);
  4063. /*[IRF3.3set_result_type*/((((T181*)(((T181*)R))))->_result_type)=(_rt);
  4064. /*]*/
  4065. }
  4066. /*FI]*/
  4067. return R;
  4068. }
  4069.  
  4070.  
  4071. T2 r181to_integer(T181* C){
  4072. T2 R=0;
  4073. r181error((/*RF2*/(C)->_start_position/*4*/),((T0*)ms14_45441));
  4074. return R;
  4075. }
  4076.  
  4077.  
  4078. T0* r181twin(T181* C){
  4079. T0* R=NULL;
  4080. R=malloc(sizeof(*C));
  4081. *((T181*)R)=*C;
  4082. return R;
  4083. }
  4084.  
  4085.  
  4086. void r181error(T68 a1,T0* a2){
  4087. r66add_position(a1);
  4088. /*[IRF3.6append*/{T0* b1=a2;
  4089. r7append((T7*)(oBC66explanation),b1);
  4090. }/*]*/
  4091. r66print_as_error((T66*)(oBC13eh));
  4092. }
  4093.  
  4094.  
  4095. T0* r181static_result_base_class(T181* C){
  4096. T0* R=NULL;
  4097. T0* _bcn=NULL;
  4098. _bcn=X52static_base_class_name((/*RF2*/(C)->_result_type/*16*/));
  4099. /*[IF*/
  4100. if((_bcn)!=((void*)(NULL))){
  4101. R=r61base_class(((T61*)_bcn));
  4102. }
  4103. /*FI]*/
  4104. return R;
  4105. }
  4106.  
  4107.  
  4108. void r181make(T181* C,T68 a1,T0* a2){
  4109. (/*SFN*/C->_start_position)=a1;
  4110. (/*SFN*/C->_to_string)=a2;
  4111. }
  4112.  
  4113.  
  4114. void r181name_clash_for(T181* C,T0* a1,T0* a2){
  4115. T0* _bc=NULL;
  4116. T0* _rc=NULL;
  4117. T0* _rf=NULL;
  4118. _bc=r181base_class_written(C);
  4119. /*[IF*/
  4120. if(r51has_simple_feature_name(((T51*)_bc),(/*RF2*/(C)->_to_string/*12*/))){
  4121. _rc=X52run_class(a1);
  4122. _rf=r50get_feature_with(((T50*)_rc),(/*RF2*/(C)->_to_string/*12*/));
  4123. /*[IF*/
  4124. if((_rf)!=((void*)(NULL))){
  4125. {T68 se_tmp0;
  4126. r66add_position((*(se_tmp0=X334start_position(_rf),&se_tmp0)));
  4127. }
  4128. }
  4129. /*FI]*/
  4130. r181error((/*RF2*/(C)->_start_position/*4*/),a2);
  4131. }
  4132. /*FI]*/
  4133. }
  4134.  
  4135.  
  4136. T6 r181stupid_switch(T181* C,T0* a1){
  4137. T6 R=0;
  4138. /*[IF*/
  4139. if(r49stupid_switch((/*RF2*/(C)->_result_type/*16*/),a1)){
  4140. R=1;
  4141. }
  4142. /*FI]*/
  4143. return R;
  4144. }
  4145.  
  4146.  
  4147. T0* r287try_to_undefine(T287* C,T0* a1,T0* a2){
  4148. T0* R=NULL;
  4149. T0* _fn2=NULL;
  4150. {T68 se_tmp0;
  4151. r66add_position((*(se_tmp0=X82start_position(a1),&se_tmp0)));
  4152. }
  4153. _fn2=r83feature_name((T83*)((/*RF2*/(C)->_names/*8*/)),X82to_key(a1));
  4154. /*[IF*/
  4155. if((_fn2)!=((void*)(NULL))){
  4156. X82undefine_in(_fn2,a2);
  4157. }
  4158. /*FI]*/
  4159. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  4160. /*]*/
  4161. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  4162. /*]*/
  4163. /*]*/
  4164. R=/*(IRF4.4try_to_undefine_aux*/((T0*)(C))/*)*/;
  4165. /*[IF*/
  4166. if((R)!=((void*)(NULL))){
  4167. X284set_clients(R,(/*RF2*/(C)->_clients/*16*/));
  4168. r287merge_header_comments(C,R);
  4169. }
  4170. else{
  4171. r51fatal_undefine(((T51*)a2),a1);
  4172. }
  4173. /*FI]*/
  4174. return R;
  4175. }
  4176.  
  4177.  
  4178. void r287check_obsolete(T287* C,T68 a1){
  4179. /*[IF*/
  4180. if(((/*RF2*/(C)->_obsolete_mark/*24*/))!=((void*)(NULL))){
  4181. /*[IF*/
  4182. if(!((/*RF2*/((T49*)(oBC13small_eiffel))->_short_flag/*5*/))){
  4183. r66add_position(a1);
  4184. /*[IRF3.6append*/{T0* b1=((T0*)ms90_19170);
  4185. r7append((T7*)(oBC66explanation),b1);
  4186. }/*]*/
  4187. /*[IRF3.6append*/{T0* b1=(/*RF2*/((T161*)((/*RF2*/(C)->_obsolete_mark/*24*/)))->_to_string/*12*/);
  4188. r7append((T7*)(oBC66explanation),b1);
  4189. }/*]*/
  4190. {T68 se_tmp0;
  4191. r66add_position((*(se_tmp0=r287start_position(C),&se_tmp0)));
  4192. }
  4193. r66print_as_warning((T66*)(oBC13eh));
  4194. }
  4195. /*FI]*/
  4196. }
  4197. /*FI]*/
  4198. }
  4199.  
  4200.  
  4201. T0* r287to_run_feature(T287* C,T0* a1,T0* a2){
  4202. T0* R=NULL;
  4203. {T386*n=((T386*)malloc(sizeof(*n))/*44*/);
  4204. *n=M386;
  4205. r386make(n,a1,a2,(T0*)C);
  4206. R=((T0*)n);
  4207. }
  4208. return R;
  4209. }
  4210.  
  4211.  
  4212. void r287error(T68 a1,T0* a2){
  4213. r66add_position(a1);
  4214. /*[IRF3.6append*/{T0* b1=a2;
  4215. r7append((T7*)(oBC66explanation),b1);
  4216. }/*]*/
  4217. r66print_as_error((T66*)(oBC13eh));
  4218. }
  4219.  
  4220.  
  4221. T6 r287is_not_mergeable_with(T287* C,T0* a1){
  4222. T6 R=0;
  4223. /*[IF*/
  4224. if(((/*RF2*/(C)->_result_type/*40*/))==((void*)(NULL))){
  4225. R=(X90result_type(a1))!=((void*)(NULL));
  4226. }
  4227. else{
  4228. R=(X90result_type(a1))==((void*)(NULL));
  4229. }
  4230. /*FI]*/
  4231. /*[IF*/
  4232. if(R){
  4233. /*[IRF3.6append*/{T0* b1=((T0*)ms90_64152);
  4234. r7append((T7*)(oBC66explanation),b1);
  4235. }/*]*/
  4236. }
  4237. else{
  4238. /*[IF*/
  4239. if(((/*RF2*/(C)->_arguments/*20*/))==((void*)(NULL))){
  4240. R=(X90arguments(a1))!=((void*)(NULL));
  4241. }
  4242. else{
  4243. R=(X90arguments(a1))==((void*)(NULL));
  4244. }
  4245. /*FI]*/
  4246. /*[IF*/
  4247. if(R){
  4248. /*[IRF3.6append*/{T0* b1=((T0*)ms90_82612);
  4249. r7append((T7*)(oBC66explanation),b1);
  4250. }/*]*/
  4251. }
  4252.  else if(((/*RF2*/(C)->_arguments/*20*/))==((void*)(NULL))){
  4253. }
  4254.  else if((/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*20*/)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)!=(/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)(X90arguments(a1)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)){
  4255. /*[IRF3.6append*/{T0* b1=((T0*)ms90_66660);
  4256. r7append((T7*)(oBC66explanation),b1);
  4257. }/*]*/
  4258. R=1;
  4259. }
  4260. /*FI]*/
  4261. }
  4262. /*FI]*/
  4263. r287merge_header_comments(C,a1);
  4264. return R;
  4265. }
  4266.  
  4267.  
  4268. void r287set_header_comment(T287* C,T0* a1){
  4269. /*[IF*/
  4270. if(((a1)!=((void*)(NULL)))&&((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)>(1))){
  4271. (/*SFN*/C->_end_comment)=a1;
  4272. }
  4273. /*FI]*/
  4274. }
  4275.  
  4276.  
  4277. void r287set_rescue_compound(T287* C,T0* a1){
  4278. /*[IF*/
  4279. if((a1)!=((void*)(NULL))){
  4280. {T68 se_tmp0;
  4281. r66add_position((*(se_tmp0=r215start_position(((T215*)a1)),&se_tmp0)));
  4282. }
  4283. }
  4284. else{
  4285. {T68 se_tmp0;
  4286. r66add_position((*(se_tmp0=r287start_position(C),&se_tmp0)));
  4287. }
  4288. }
  4289. /*FI]*/
  4290. /*[IRF3.6append*/{T0* b1=((T0*)ms284_124456);
  4291. r7append((T7*)(oBC66explanation),b1);
  4292. }/*]*/
  4293. r66print_as_fatal_error((T66*)(oBC13eh));
  4294. }
  4295.  
  4296.  
  4297. void r287make_routine(T287* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
  4298. /*[IRF3.3make_e_feature*/((((T287*)(C)))->_names)=(a1);
  4299. /*]*/
  4300. (/*SFN*/C->_header_comment)=a4;
  4301. (/*SFN*/C->_arguments)=a2;
  4302. (/*SFN*/C->_obsolete_mark)=a3;
  4303. (/*SFN*/C->_require_assertion)=a5;
  4304. }
  4305.  
  4306.  
  4307. void r287make(T287* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6){
  4308. r287make_routine(C,a1,a2,a4,a5,a6);
  4309. (/*SFN*/C->_result_type)=a3;
  4310. }
  4311.  
  4312.  
  4313. void r287add_into(T287* C,T0* a1){
  4314. T0* _fn=NULL;
  4315. T2 _i=0;
  4316. {T68 se_tmp0;
  4317. (/*SFN*/C->_base_class)=(/*RF2*/((*(se_tmp0=X82start_position(r83item((T83*)((/*RF2*/(C)->_names/*8*/)),1)),&se_tmp0)))._base_class/*0*/);
  4318. }
  4319. _i=1;
  4320. while (!((_i)>(r83count((T83*)((/*RF2*/(C)->_names/*8*/))))))
  4321. {
  4322. _fn=r83item((T83*)((/*RF2*/(C)->_names/*8*/)),_i);
  4323. /*[IF*/
  4324. if(r91has(((T91*)a1),X82to_key(_fn))){
  4325. _fn=/*SSFRF4*//*X90first_name*//*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/((T198*)(r91at(((T91*)a1),X82to_key(_fn))))->_names/*8*/))))->_first/*0*/)/*)*/;
  4326. {T68 se_tmp0;
  4327. r66add_position((*(se_tmp0=X82start_position(_fn),&se_tmp0)));
  4328. }
  4329. {T68 se_tmp0;
  4330. r66add_position((*(se_tmp0=X82start_position(r83item((T83*)((/*RF2*/(C)->_names/*8*/)),_i)),&se_tmp0)));
  4331. }
  4332. /*[IRF3.6append*/{T0* b1=((T0*)ms90_41470);
  4333. r7append((T7*)(oBC66explanation),b1);
  4334. }/*]*/
  4335. /*[IRF3.6append*/{T0* b1=X82to_string(_fn);
  4336. r7append((T7*)(oBC66explanation),b1);
  4337. }/*]*/
  4338. /*[IRF3.6append*/{T0* b1=((T0*)ms14_46);
  4339. r7append((T7*)(oBC66explanation),b1);
  4340. }/*]*/
  4341. r66print_as_error((T66*)(oBC13eh));
  4342. }
  4343. else{
  4344. r91put(((T91*)a1),(T0*)C,X82to_key(_fn));
  4345. }
  4346. /*FI]*/
  4347. _i=(_i)+(1);
  4348. }
  4349. }
  4350.  
  4351.  
  4352. T6 r287can_hide(T287* C,T0* a1,T0* a2){
  4353. T6 R=0;
  4354. /*[IF*/
  4355. if(((/*RF2*/(C)->_result_type/*40*/))!=((void*)(X90result_type(a1)))){
  4356. /*[IF*/
  4357. if((((/*RF2*/(C)->_result_type/*40*/))==((void*)(NULL)))||((X90result_type(a1))==((void*)(NULL)))){
  4358. {T68 se_tmp0;
  4359. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  4360. }
  4361. {T68 se_tmp0;
  4362. r287error((*(se_tmp0=r287start_position(C),&se_tmp0)),((T0*)ms90_64152));
  4363. }
  4364. }
  4365. /*FI]*/
  4366. }
  4367. /*FI]*/
  4368. /*[IF*/
  4369. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(X90arguments(a1)))){
  4370. /*[IF*/
  4371. if((((/*RF2*/(C)->_arguments/*20*/))==((void*)(NULL)))||((X90arguments(a1))==((void*)(NULL)))){
  4372. {T68 se_tmp0;
  4373. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  4374. }
  4375. {T68 se_tmp0;
  4376. r287error((*(se_tmp0=r287start_position(C),&se_tmp0)),((T0*)ms90_82612));
  4377. }
  4378. }
  4379.  else if((/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*20*/)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)!=(/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)(X90arguments(a1)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)){
  4380. {T68 se_tmp0;
  4381. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  4382. }
  4383. {T68 se_tmp0;
  4384. r287error((*(se_tmp0=r287start_position(C),&se_tmp0)),((T0*)ms90_66660));
  4385. }
  4386. }
  4387. /*FI]*/
  4388. }
  4389. /*FI]*/
  4390. /*[IF*/
  4391. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  4392. /*[IF*/
  4393. if(((/*RF2*/(C)->_result_type/*40*/))!=((void*)(NULL))){
  4394. /*[IF*/
  4395. if(!(X52is_a_in((/*RF2*/(C)->_result_type/*40*/),X90result_type(a1),a2))){
  4396. /*[IRF3.6append*/{T0* b1=((T0*)ms90_51136);
  4397. r7append((T7*)(oBC66explanation),b1);
  4398. }/*]*/
  4399. /*[IRF3.6append*/{T0* b1=X52run_time_mark((/*RF2*/(((T50*)a2))->_current_type/*0*/));
  4400. r7append((T7*)(oBC66explanation),b1);
  4401. }/*]*/
  4402. /*[IRF3.6append*/{T0* b1=((T0*)ms14_46);
  4403. r7append((T7*)(oBC66explanation),b1);
  4404. }/*]*/
  4405. r66print_as_error((T66*)(oBC13eh));
  4406. }
  4407. /*FI]*/
  4408. }
  4409. /*FI]*/
  4410. }
  4411. /*FI]*/
  4412. /*[IF*/
  4413. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  4414. /*[IF*/
  4415. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(NULL))){
  4416. /*[IF*/
  4417. if(!(r178is_a_in((T178*)((/*RF2*/(C)->_arguments/*20*/)),X90arguments(a1),a2))){
  4418. {T68 se_tmp0;
  4419. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  4420. }
  4421. {T68 se_tmp0;
  4422. r66add_position((*(se_tmp0=r287start_position(C),&se_tmp0)));
  4423. }
  4424. /*[IRF3.6append*/{T0* b1=((T0*)ms90_51136);
  4425. r7append((T7*)(oBC66explanation),b1);
  4426. }/*]*/
  4427. /*[IRF3.6append*/{T0* b1=X52run_time_mark((/*RF2*/(((T50*)a2))->_current_type/*0*/));
  4428. r7append((T7*)(oBC66explanation),b1);
  4429. }/*]*/
  4430. /*[IRF3.6append*/{T0* b1=((T0*)ms14_46);
  4431. r7append((T7*)(oBC66explanation),b1);
  4432. }/*]*/
  4433. r66print_as_error((T66*)(oBC13eh));
  4434. }
  4435. /*FI]*/
  4436. }
  4437. /*FI]*/
  4438. }
  4439. /*FI]*/
  4440. R=(/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0);
  4441. /*[IF*/
  4442. if(R){
  4443. r287merge_header_comments(C,a1);
  4444. }
  4445. /*FI]*/
  4446. return R;
  4447. }
  4448.  
  4449.  
  4450. void r287from_effective(T287* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6){
  4451. {T83*n=((T83*)malloc(sizeof(*n))/*8*/);
  4452. *n=M83;
  4453. /*[IRF3.3make_1*/((((T83*)(n)))->_first)=(a1);
  4454. /*]*/
  4455. (/*SFN*/C->_names)=((T0*)n);
  4456. }
  4457. r287make(C,(/*RF2*/(C)->_names/*8*/),a2,a3,NULL,NULL,a4);
  4458. /*[IRF3.3set_ensure_assertion*/((((T287*)(C)))->_ensure_assertion)=(a5);
  4459. /*]*/
  4460. (/*SFN*/C->_base_class)=a6;
  4461. }
  4462.  
  4463.  
  4464. void r287merge_header_comments(T287* C,T0* a1){
  4465. /*[IF*/
  4466. if((/*RF2*/((T49*)(oBC13small_eiffel))->_short_flag/*5*/)){
  4467. /*[IF*/
  4468. if(((/*RF2*/(C)->_header_comment/*12*/))==((void*)(NULL))){
  4469. (/*SFN*/C->_header_comment)=/*SSWARF2*//*X90header_comment*/(/*RF2*/(((T198*)a1))->_header_comment/*12*/);
  4470. }
  4471.  else if((/*SSWARF2*//*X90header_comment*/(/*RF2*/(((T198*)a1))->_header_comment/*12*/))==((void*)(NULL))){
  4472. X90set_header_comment(a1,(/*RF2*/(C)->_header_comment/*12*/));
  4473. }
  4474. /*FI]*/
  4475. }
  4476. /*FI]*/
  4477. }
  4478.  
  4479.